VBS Script Rekursive Ordnerdurchsuchung
 

Hallo alle zusammen,

ich habe mal da ne frage zu vbs,
ich bräuchte ein s***** dass mir von einem ordner aus, alle ordner und dateien nach dem letzten modifizierungsdatum schaut, bis auf 2 fixe ordner, die er gar nicht beachten soll.
mein problem bis jetzt, ordner schaut er alle brav an,
nur die dateien nicht, da schaut er nur im ordner nach wo er sich befindet und geht in kein unterordner rein. kenne mich sehr wenig mit vbs aus, bräuchte so eine rekursive schleife.
bisher habe ich folgendes:

"Dim fso, Txt, i, oSubFolder, Files, Directory, Modified, arg1, arg2
Alter = FormatDateTime( now() - 2 ,2)
arg1 = "D:\test\bilder"
arg2 = "D:\test\texte"
Set fso = WS*****.CreateObject("S*****ing.FileSystemObject")
Set oSubFolder = fso.GetFolder( "D:\test" ).SubFolders
Set Directory = Fso.GetFolder("D:\test\")
Set Files = Directory.Files

For Each i In oSubFolder
if DateDiff("d" , i.DateLastModified, Alter) > 0 then
Txt = i.Path
Txt = UCase( Txt )
If StrComp(arg1, Txt, 1) AND StrComp(arg2, Txt, 1) Then
fso.DeleteFolder Txt
End If
End If

For Each Modified in Files
If DateDiff("D", Modified.DateLastModified, Now) > 1 Then Modified.Delete
Next

Next"