show Files recursive

Zeige mir alle Dateien in einem Ordner und seinem Unterordnern an:

showfilesrekursiv.vbs
'[showfilesrekursiv.vbs] rekursiv Dateien mit letzter Änderung anzeigen
' Ergebnis wird gleichzeitig in ein Excel geschrieben
Dim System
Dim FileName
PATH = "\\servername\frei\gabe\verzeichnis\"
'PATH = "c:\verzeichnis\"
Set System = CreateObject("Scripting.FileSystemObject")
 
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
 
  Call FindFile(PATH)
 
'--------------------------------------------------------'
Sub FindFile(ThisFolder)
    Dim File
    Dim Folder
    For Each Folder In System.GetFolder(ThisFolder).SubFolders
       For Each File In Folder.Files
          wscript.echo Folder & "\" & File.Name & vbTab & File.DateLastModified
 
          objExcel.ActiveCell.Value = Folder
          objExcel.ActiveCell.Offset(0, 1).Value = File.Name
          objExcel.ActiveCell.Offset(0, 2).Value = File.DateLastModified 
          objExcel.ActiveCell.Offset(1,0).Activate
 
       Next 'File
       Call FindFile(Folder)
    Next 'Folder
End Sub
'--------------------------------------------------------'

alle Daten werden gleichzeitig in eine Exceldatei geschrieben.
Wenn kein Excel vorhanden, dann müssen die damit zusammenhängenden Zeilen auskommentiert werden.
Aufruf mit : cscript showfilesrekursive.vbs