Batch Job um bestimme Dateien die älter als 5 Tage sind zu löschen

hi leute,

Ich bräuchte da einen batch job um bestimmte Dateien von einem bestimmten Laufwerk zu löschen die älter als 5 Tage sind!

Müsste doch irgendwie gehen oder ???

Der ort ist G:\Sicherung und die Dateien sind mit der Endung *.bak

Weiss das jemand wie ich jetzt noch das alter der datei bestimme kann ???

nice greetz jojo

hi das kannst du mit

forfiles machen... irgendwo ist das hier im board auch nochmal beschrieben

ich mache das so

forfiles /p G:\ExpandIT_Backup /s /m *.* /d -5 /c "cmd /c del @file"

schau mal hier

http://www.mcseboard.de/showthread.php?t=39539&highlight=forfiles

Flare

Hi!

Nicht exakt Dein Thema, aber mit der Berücksichtung des TimeStamps in Batch-Dateien hat dieser Thread zu tun http://mcseboard.de/showthread.php?t=55718. Das sollte Dir weiterhelfen, Du brauchst ja nur die Befehle auszutauschen (copy/del).

Gegrüßt!

nicht exakt ??

also meine lösung loescht alle file die älter sind als 5 tage...

gehts exakter ??

Finanzamt meine mit "nicht exakt dein Thema" wohl eher jojo0411 - Weil es in den von ihm geposteten Thread um Automatische Dateinamen im Batch File geht - sich aber die Lösung wohl auf seine Problematik anwenden lässt.

Greetz, Evil

@Evil: Danke für die Klarstellung, ist exakt meine Intention gewesen

@Flare: Deinen Post [12:48] hatte ich beim Abschicken des meinigen [12:51] noch gar nicht gelesen.

@alle: Heut ist Vollmond.

Gegrüßt!

achsoo :) ich hab ein punkt gesehn in satz wo keiner ist :)

ok,

mit dem Script hab ich es jetzt geschafft!

Da meine BAK files auf der obersten ebene liegen! hab ich einfach das löschen der Unterordner herausgegeben und jetzt passt es perfekt!

' hier eigenen Bedürfnissen anpassen

Verzeichnis = "C:\Dokumente und Einstellungen\Administrator\Desktop\TESt" ' Hier wird gelöscht!

Aufheben = 2 ' Anzahl der Tage

' Ende der Anpassungen

Set fso = CreateObject("Scripting.FileSystemObject")

Set ordner = fso.GetFolder(Verzeichnis)

heute = Date()

DeleteInFolder(ordner)

Sub DeleteInFolder(ordner)

Set dateien = ordner.Files

' Alle Dateien in diesem Ordner abklappern

For Each datei In dateien

If datei.DateLastModified < (heute - Aufheben) Then

datei.Delete

End If

Next

End Sub