Script erstellen

  Dim  objFS, myPath, myFolder, myFile, olddate
  
  myPath = InputBox("Bitte Pfad eingeben:", "Dateien älter als 7 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", -7, Now)  '7 Wochen  
  
  for each myfile in myFolder.Files
    If myFile.DateLastModified < olddate then objFS.DeleteFile myFile.Path
  next 
  
  Wscript.Quit (0)
  
  Sub DisplayInfo
    MsgBox "Usage: delmyordner.vbs [FolderPath]", vbExclamation, "Missing Argument"  
  End Sub