• 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.

API Declarations


"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

(1(1 Vote))

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