Dateien eines Ordners und deren Unterordner auslesen

on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
StartFolder = "c:\temp"
Dateienauslesen StartFolder

function Dateienauslesen(StartFolder)
Set objFolder = fso.GetFolder(StartFolder)
Wscript.Echo objFolder.Path

Set colFiles = objFolder.Files
'alle Dateien im Ordner auslesen
For Each objFile in colFiles
Wscript.Echo "File" & objFile.Name & objFile.datecreated & objfile.datelastmodified
Next

'alle Ordner auslesen und die Funktion Dateienauslesen für die Unterordner starten:
for Each objFolder in objFolder.SubFolders
wscript.echo "Ordner:" & StartFolder & "\" & objFolder.Name
Dateienauslesen(StartFolder & "\" & objFolder.Name)
Next
end function