Recursively Iterate through a folder

Set fs = WScript.CreateObject ("Scripting.FileSystemObject")

Sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
Set files = SubFolder.Files
For Each file In files
WScript.Echo file.Name, file.Size
Next
ShowSubFolders Subfolder
Next
End Sub

ShowSubFolders fs.GetFolder("C:\your\path\here")