Batchdatei zum löschen von Dateien älter als...

' DelOldScrap.vbs <BelowFolder> <AgeInDays>  
Set myArguments = WScript.Arguments
If myArguments.Count <> 2 Then    
	Usage
    Wscript.Quit (1)
End if

Heute = FormatDateTime(Date, 2)
OldDate = DateAdd("d","-" & myArguments(1), Heute)  

Set objFS = CreateObject("Scripting.FilesystemObject")  
Base = myArguments(0)
If objFS.FolderExists(Base) Then
    DoFolder objFS.GetFolder(Base)
Else
    Usage
End If
MsgBox "Fertig."  

Sub DoFolder(Folder)
For Each File In Folder.Files
    'für "Erstellungsdatum" anstelle von "DateLastModified" "DateCreated" verwenden  
    If File.DateLastModified < OldDate Then File.Delete 
Next

For Each SubFolder In Folder.SubFolders
    'für "Erstellungsdatum" anstelle von "DateLastModified" "DateCreated" verwenden  
    If SubFolder.DateLastModified < OldDate Then
        WScript.Echo SubFolder.Delete
    Else
        DoFolder SubFolder
        If (SubFolder.SubFolders.Count + SubFolder.Files.Count) = 0 Then SubFolder.Delete 'leere Unterordner löschen  
    End If
Next
End Sub

Sub Usage
MsgBox "Usage: " & WScript.ScriptName & " StartPfad TageAnzahl", vbExclamation, "Argumente überprüfen ..."  
End Sub