c't 21/03
' hier eigenen Bedürfnissen anpassen
Verzeichnis = "C:\Bilder" ' Hier wird gelöscht!
Aufheben = 31 ' Anzahl der Tage
' Ende der Anpassungen
Set fso = CreateObject("Scripting.FileSystemObject")
Set ordner = fso.GetFolder(Verzeichnis)
heute = Date()
DeleteInFolder(ordner)
Sub DeleteInFolder(ordner)
Set dateien = ordner.Files
' Alle Dateien in diesem Ordner abklappern
For Each datei In dateien
If datei.DateLastModified < (heute - Aufheben) Then
datei.Delete
End If
Next
Set untere = ordner.SubFolders
'Unterordner abklappern, DeleteInFolder rekursiv aufrufen
For Each unter In untere
DeleteInFolder(unter)
Next
End Sub
Speichern Sie das Skript als Textdatei mit der Endung .vbs. Wenn Sie das Skript noch weiter aufbohren wollen, finden Sie übrigens die nötige Dokumentation zum Windows Script Host unter http://msdn.microsoft.com/library/en-us/script56/html/wsoriWindowsScriptHost.asp.
Um das Skript automatisch, etwa einmal am Tag, laufen zu lassen, fügen Sie es in der Systemsteuerung bei „Geplante Tasks“ hinzu. Im Explorer starten Sie es wie ein Programm per Doppelklick. (hos)
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-315262
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.
RSS
