This is actually a lot simpler than I expected (gimme a break, this is my second foray into VBS!)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
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")