Per Batch dateien löschen, die älter sind als x Tage/Monate

[BloodySword]

Hallo,

ich möchte gerne per BATCH und möglichst mit Bordmitteln und ohne VBS/JS Dateien löschen, die älter sind als das angegebene Datum oder Zeitspanne.

Dazu habe ich folgenden Thread gefunden:
http://www.mcseboard.de/windows-foru...en-109911.html

Leider hilft mir das nicht wirklich weiter.

Ich lasse Backups erstellen in Form von RAR-Dateien.
Wenn die existierenden älter sind als 2 Monate sollen sie gelöscht werden, um Speicherplatz zu sparen.

Danke im Vorraus!

[Racer1000]

Hallo BloodSword

Schau dir mal das Tool Robocopy von Microsoft an. Das kann genau das was Du machen willst.


Racer

[GuentherH]

Hallo.

Schau dir mal das Tool Robocopy von Microsoft an

... und hier ein Beispiel dazu - : www.SBSPraxis.de, Automatisches Bereinigen der LOG Verzeichnisse auf einem SBS 2003 Server :

LG Günther

[NilsK]

Moin,

... und falls es doch was mit Skript sein darf:
faq-o-matic.net Alte Dateien löschen

Gruß, Nils

[BloodySword]

Da gefällt mir dann doch die Variante von NilsK besser, da ich dann keine extra .exe brauche.

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = command$
strExtension = "exe"
intTage = 56

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
        WScript.Echo "Lösche " & objDatei.name
        intZahl = intZahl + 1
   End If
Next

So richtig?

[NilsK]

Moin,

Zitat von BloodySword strOrdner = command$ [...] So richtig?

nö. strOrdner sollte schon den absoluten Pfad enthalten und muss darüber hinaus den Wert in Anführungsstrichen haben (siehe die Vorlage). Sonst sollte es laufen.

Ach so, und du solltest es mit cscript aufrufen, sonst wirst du ziemlich viele Boxen wegklicken müssen.

Gruß, Nils

[BloodySword]

Klar lasse ich es mit cscript...

Hab's nun raus. Es sollte nämlich alles per Script-Argumente einlesen:

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = Wscript.Arguments(0)
strExtension = Wscript.Arguments(1)
intTage = Wscript.Arguments(2)

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
        WScript.Echo "Lösche " & objDatei.name
        intZahl = intZahl + 1
   End If
Next
WScript.Echo intZahl & " Dateien gelöscht."

[mad-max79]

hi;

ich kann dof empfehlen.
Ist gang einfach zu konfigurieren...

Link

Gruß
Michael

[BloodySword]

Das Tool ist auch interessant. Werde ich mir auch mal ansehen ^^.