Sie sind hier

Alten Dateien löschen.

Zum Verfassen von Kommentaren bitte Anmelden.
Bild des Benutzers admin
admin
Offline
Beigetreten: 09/18/2009 - 23:10
Alten Dateien löschen.
Textkörper: 

Über ein Jahr alte log-Dateien sind meistens nur noch lästig mit folgendem VBS-Script kann man solche Dateien automatisiert löschen:

'Verzeichnisse löschen, die vor über einem Jahr angelegt wurden.

Option Explicit
Dim intZahl
Dim strExtension
Dim intTage
Dim objDatei
Dim objFSO
Dim objOrdner
Dim strOrdner

Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = "c:\Programme\Ascent\Images"
strExtension = ""
intTage = 365

Set objOrdner = objFSO.GetFolder(strOrdner)
intZahl = 0
For Each objDatei In objOrdner.subfolders
If LCase(Right(objDatei.name, Len(strExtension))) = LCase(strExtension) _
And DateDiff("d", objDatei.DateLastModified, Now) > intTage Then
objDatei.Delete
intZahl = intZahl + 1
End If
Next

'WScript.Echo intZahl & " alte Dateien gelöscht."