Lösche Inhalt in bestimmten Unterordner wenn älter als

MsgBox "Start mit Löschen"  
DEINORDNER = "C:\Users\MAx\Test"  
SUCHE_IN_UNTERORDNERN = True
olddate = DateAdd("d", -8, Date)  
set objFS = CreateObject("Scripting.FilesystemObject")  
Set objShell = CreateObject("Wscript.Shell")  
parseFolders objFS.GetFolder(DEINORDNER)
Function parseFolders(strFldr)
for each myFile in strFldr.Files
If LCase(objFS.GetExtensionName(myFile.Name)) = "\Fotos" then  
target = objShell.CreateShortcut(myFile.Path).TargetPath & "\Fotos\"  
If objFS.FolderExists(target) Then
RemoveOldFiles objFS.GetFolder(target)
End If
End If
Next
For Each subFolder in strFldr.SubFolders
parseFolders subFolder
Next
End Function
Function RemoveOldFiles(strFldr)
For Each f In strFldr.Files
If f.DateLastModified < olddate Then
objFS.DeleteFile f.Path,True
End If
Next
For Each subFolder in strFldr.SubFolders
RemoveOldFiles subFolder
Next
End Function
MsgBox "Fertig mit Löschen"