c't 9/03
' 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)
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-314302
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.