Get all Files Recursively

[admin]

Code: Select all

Option Explicit

dim resultFiles 
Set resultFiles = CreateObject("Scripting.Dictionary")

GetAllFiles "C:\tmp", resultFiles
For Each file in resultFiles.Items
    WScript.Echo file.Path
Next

Function GetAllFiles(folder, resultFiles)
dim fso, folder, files, file

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folder)

    Set files = folder.Files
    For Each file in files
        resultFiles.Add resultFiles.Count, file
    Next

    Set subFolders = folder.SubFolders
    For Each subFolder in subFolders
        GetAllFiles subFolder.Path, resultFiles
    Next
End Function