[vbscript]get all files recursively

GetAllFiles.vbs

Set resultFiles = CreateObject("Scripting.Dictionary")
GetAllFiles "C:\tmp", resultFiles
For Each file in resultFiles.Items
    WScript.Echo file.Path
Next

Function GetAllFiles(folder, resultFiles)
    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