Ordner und Dateien per VBS löschen

Dim  objFS, myPath, myFolder, myFile, olddate 
myPath = InputBox("Bitte Pfad eingeben:", "Dateien älter als 3 Tage löschen")   
If myPath = "" Then Call DisplayInfo:  Wscript.Quit (1)   
set objFS = CreateObject("Scripting.FilesystemObject")   
If Not objFS.FolderExists(myPath) Then Call DisplayInfo:  Wscript.Quit (1) 
set myFolder = objFS.GetFolder(myPath) 
olddate = DateAdd("d", -3, Now)  '3 Tage   
for each myfile in myFolder.Files 
If myFile.DateCreated < olddate then objFS.DeleteFile myFile.Path 
next  
Wscript.Quit (0) 
Sub DisplayInfo 
MsgBox "Usage: delmyordner.vbs [FolderPath]", vbExclamation, "Missing Argument"   
End Sub

'*************************************************************************   
'Dateien die älter als intTage sind löschen   
'DateLastModified=Änderungsdatum; DateCreated=Erstellungsdatum   
'WScript.Echo intZahl & " Dateien gelöscht." (Ausgabe gelöschter Dateien)   
'*************************************************************************   

Set objFSO = CreateObject("Scripting.FileSystemObject")   
strOrdner = "C:\scans\Meine Scans"			'Ordnerpfad angeben   
strExtension = ""	   
intTage = 1				'Anzahl der Tage angeben   
Set objOrdner = objFSO.GetFolder(strOrdner) 
intZahl = 0 
For Each objDatei In objOrdner.Files 
    If LCase(Right(objDatei.name, Len(strExtension))) = LCase(strExtension) _  
        And DateDiff("d", objDatei.DateCreated, Now) > intTage Then   
        objDatei.Delete 
        intZahl = intZahl + 1 
    End If 
Next 
For Each objUnterordner In objOrdner.SubFolders  
    Doku = Doku & vbCrLf & DateDiff("d", objUnterordner.DateCreated, Now) & vbTab & objUnterordner.Name    
    If DateDiff("d", objUnterordner.DateCreated, Now) > intTage Then    
       objUnterordner.Delete
       intOrdner = intOrdner + 1  
    End If  
Next  
WScript.Echo Mid(Doku, 3)