• Home
 · 
• Files/File Controls/Input/Output
 · 
• Recursive Get ALL files from a Folder and its Subfolders and its Subfolder Subfolders etc.

Recursive Get ALL files from a Folder and its Subfolders and its Subfolder Subfolders etc.

Recursive Get ALL files from a Folder and its Subfolders and its Subfolder Subfolders etc.

Assumes
First go to Project->References and include "Microsoft Scripting Runtime" Insert a Textbox called textbox1 with its multiline property set to true. Also a Command Button called Command1 .

Rate Recursive Get ALL files from a Folder and its Subfolders and its Subfolder Subfolders etc.

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

public filetext as String
private sub command1_click()
Dim fso As New FileSystemObject
myfoldertext="C:\folder\"
call get_all_directory_files(fso.getfolder(myfoldertext))
text1.text=filetext
set fso=nothing
end sub

Public Sub get_all_directory_files(ByVal tfolder As folder)
Dim objfile As file
Dim objfolder As folder
Dim fso As New FileSystemObject
If tfolder <> "" Then
For Each objfile In tfolder.Files
'do the stuff we want with the files
filetext=filetext+objfile+ vbNewLine
Next
For Each objfolder In tfolder.SubFolders
Call get_all_directory_files(objfolder)
Next
Set fso = Nothing
End If
End Sub