'[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
'--------------------------------------------------------'