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
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 75331
Url: https://administrator.de/forum/vbs-script-zum-loeschen-alter-backups-75331.html
Ausgedruckt am: 18.05.2025 um 10:05 Uhr
4 Kommentare
Neuester Kommentar
Guten Morgen Oziriz,
probiere es doch mal mit dem kleinen Tool "delage32". Es wird in einer Batch aufgerufen wo man die entsprechenden Parameter übergeben kann.
Gruß
virtuelleruser
probiere es doch mal mit dem kleinen Tool "delage32". Es wird in einer Batch aufgerufen wo man die entsprechenden Parameter übergeben kann.
Gruß
virtuelleruser
Hallo oziriz und willkommen im Forum!
Wo liegt eigentlich das Problem? Bei mir läuft das Script in der oben dargestellten Form problemlos durch und macht auch, was es soll ...
Grüße
bastla
Wo liegt eigentlich das Problem? Bei mir läuft das Script in der oben dargestellten Form problemlos durch und macht auch, was es soll ...
Grüße
bastla
Hallo Bastla,
Ja das war meine frage da ich nicht wirklich eine gelegenheit zum testen habe
und es mir nicht möglich ist delage32 auf dem server abzulegen.
Danke für die rasche Antwort
grüsse
oziriz
Ja das war meine frage da ich nicht wirklich eine gelegenheit zum testen habe
und es mir nicht möglich ist delage32 auf dem server abzulegen.
Danke für die rasche Antwort
grüsse
oziriz
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.DeleteWScript.Echo "Gelöscht: " & objDatei.Name cscript //nologo C:\Scripts\WegMitDenAlten.vbscscript //nologo C:\Scripts\WegMitDenAlten.vbs > D:\DieWerdenNichtMehrDaSein.txtGrüße
bastla
