Nach Datum löschen

Ich muss ein Bilder-Verzeichnis pflegen, aus dem ich regelmäßig die ältesten Dateien lösche. Mit der Suchen-Funktion ist das sehr mühselig. Wie kann ich ohne viel Aufwand alle Bilder löschen, die beispielsweise älter als drei Tage sind?

Dieser Aufgabe lässt sich mit einem kleinen Skript bequem zu Leibe rücken. Geben Sie folgende Zeilen in eine Textdatei ein, die Sie mit der Endung „.vbs“ speichern, oder laden Sie sich das Skript unter dem angegebenen Soft-Link herunter:

' Ab hier den Anforderungen anpassen
Verzeichnis = "C:\Bilder"   ' Bilder-Verzeichnis
Aufheben    = 3                     ' Anzahl der Tage
' Ende der Anpassungen
Set fso = CreateObject("Scripting.FileSystemObject")
Set ordner = fso.GetFolder(Verzeichnis)
Set dateien = ordner.Files
heute = Date()
For Each datei In dateien
  If datei.DateLastModified < (heute - Aufheben) Then
    datei.Delete
  End If
Next

Damit das Skript automatisch, etwa einmal am Tag, aufgerufen wird, fügen Sie es einfach den „Geplanten Tasks“ in der Systemsteuerung hinzu. Manuell starten Sie es wie ein Programm per Doppelklick im Explorer. (hos)

(hos)