Startseite › Foren › Alten Dateien löschen.
Über ein Jahr alte log-Dateien sind meistens nur noch lästig mit folgendem VBS-Script kann man solche Dateien automatisiert löschen:
[color=#008000]’Verzeichnisse löschen, die vor über einem Jahr angelegt wurden.[/color]
[color=#0000FF]Option Explicit[/color]
[color=#0000FF]Dim[/color] intZahl
[color=#0000FF]Dim[/color] strExtension
[color=#0000FF]Dim[/color] intTage
[color=#0000FF]Dim[/color] objDatei
[color=#0000FF]Dim[/color] objFSO
[color=#0000FF]Dim[/color] objOrdner
[color=#0000FF]Dim[/color] strOrdner
[color=#0080FF]Set[/color] objFSO = CreateObject([color=#008000]”Scripting.FileSystemObject”[/color])
strOrdner = [color=#008000]”c:\Programme\Ascent\Images”[/color]
strExtension = [color=#008000]””[/color]
intTage = [color=#FF8000]365[/color]
[color=#0000FF]Set[/color] objOrdner = objFSO.GetFolder(strOrdner)
intZahl = [color=#FF8000]0[/color]
[color=#0000FF]For Each[/color] objDatei [color=#0000FF]In[/color] objOrdner.subfolders
[color=#0000FF]If[/color] LCase(Right(objDatei.name, Len(strExtension))) = LCase(strExtension) _
[color=#0000FF]And[/color] DateDiff(“d”, objDatei.DateLastModified, Now) > intTage [color=#0000FF]Then[/color]
objDatei.Delete
intZahl = intZahl + [color=#FF8000]1[/color]
[color=#0000FF] End If
Next[/color]
[color=#008000]’WScript.Echo intZahl & ” alte Dateien gelöscht.”[/color]