VBS script zum Löschen alter Backups
Hallo,
vielleicht kann mir ja hier jemand helfen.
Ich suche ein VB script welches Backups die älter als 3 Tage sind von der Platte eines W2k3 Server löscht.
Ich hab mich hier zwar schon Umgeschaut aber nicht wirklich was Verwendbares gefunden.
Mein Quelltext sieht folgendermassen aus:
Option Explicit
Dim intZahl '
Dim strExtension '
Dim intTage '
Dim objDatei '
Dim objFSO '
Dim objOrdner '
Dim strOrdner '
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = "W:\BACKUP\DB"
strExtension = ""
intTage = 3
Set objOrdner = objFSO.GetFolder(strOrdner)
intZahl = 0
For Each objDatei In objOrdner.Files
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 & "Dateien gelöscht."
Ich bin dankbar für Korrekturen
lg
Oziriz
vielleicht kann mir ja hier jemand helfen.
Ich suche ein VB script welches Backups die älter als 3 Tage sind von der Platte eines W2k3 Server löscht.
Ich hab mich hier zwar schon Umgeschaut aber nicht wirklich was Verwendbares gefunden.
Mein Quelltext sieht folgendermassen aus:
Option Explicit
Dim intZahl '
Dim strExtension '
Dim intTage '
Dim objDatei '
Dim objFSO '
Dim objOrdner '
Dim strOrdner '
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = "W:\BACKUP\DB"
strExtension = ""
intTage = 3
Set objOrdner = objFSO.GetFolder(strOrdner)
intZahl = 0
For Each objDatei In objOrdner.Files
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 & "Dateien gelöscht."
Ich bin dankbar für Korrekturen
lg
Oziriz
Please also mark the comments that contributed to the solution of the article
Content-Key: 75331
Url: https://administrator.de/contentid/75331
Printed on: April 17, 2024 at 23:04 o'clock
4 Comments
Latest comment
Hallo oziriz!
Testen kannst Du ja eigentlich mit jedem beliebigen Ordner, und das auch ganz ohne Risiko - wenn Du die Zeile
einfach durch
ersetzt und das Script von der Commandline mit zB
startest, erhältst Du eine Liste der zu löschenden Dateien - auf Wunsch auch in einer Datei:
Grüße
bastla
Testen kannst Du ja eigentlich mit jedem beliebigen Ordner, und das auch ganz ohne Risiko - wenn Du die Zeile
objDatei.Delete
WScript.Echo "Gelöscht: " & objDatei.Name
cscript //nologo C:\Scripts\WegMitDenAlten.vbs
cscript //nologo C:\Scripts\WegMitDenAlten.vbs > D:\DieWerdenNichtMehrDaSein.txt
Grüße
bastla