Ordner nach 2 Wochen löschen

[warhawk]

Hallo Progger, folgendes:

Auf unserem PDC existiert ein Share "Sammelplatz", es is dafür gedacht, dass die Leute dort kurzweilige Sachen hinterlegen oder es für Rechner-zu-Rechner Kopien verwenden, damit die User keine eigenen Freigaben benötigen. Dieser Ordner wird auch nicht ins Backup mit einbezogen.

Leider ist die Speicherplatzmoral bei uns nicht bei jedem gut ausgeprägt, daher bräuchte ich ein Script, das mir alle Files und Ordner und Unterordner, die dort älter als 2 Wochen sind (Geändert-Datum sollte das richtige sein), löscht.

Mit nem Batch File is das soweit ich weiss nicht möglich, und mit VBScript etc. kenn ich mich nicht aus. Wenn da jemand was für mich hätte, das wäre GENIAL!

So long...

[hot.peppers]

mit den geplanten Tasks kannst du es nicht versuchen?
Ich hab es damit gemacht und jeden Freitag löscht er vor der Sicherung die TEMP Files aus einem speziellen Order.

[warhawk]

Ja klar mit Geplanten Tasks, aber ich will nicht einfach alle 2 Wochen den Ordner löschen, sondern ich will z.b. jede Nacht ein Scan machen, welche FILES älter als 2 Wochen sind, und dann nur diese löschen. Dazu brauch ich ein Script, welches ich wiederum in einen Geplanten Task einbinden kann.

[Lambda]

ich hätte was in Java, was passende Funtion bereit stellt...

[warhawk]

Naja Java muss ja nicht grad sein...

[elch]

Hi,

schau mal hier:

Dim oWso, oFolder, oFile
Set oWso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oWso.GetFolder("C:\Winnt\Temp")
For Each oFile In oFolder.Files
If oFile.DateCreated < DateAdd("m", -1, Now) Then
oFile.Delete
End If
Next
Msgbox "Auftrag ausgeführt!", 48

Dieses Skript löscht alles in C:\WINNT\TEMP, was älter als ein Monat ist. Ich denke, du kannst das leicht für deine Bedürfnisse anpassen.

gruss,
elch

[warhawk]

Was is das denn für ne Scriptsprache?!?

[elch]

Hi,

das ist die gleiche Sprache, in der man so schöne Sachen wie den Loveletter-Wurm schreibt... VBScript - eine Untermenge von Visual Basic. Das ganze kommt in eine Textdatei mit der Endung .vbs und wird von Windows Scripting Host (WSH) ausgeführt, wenn du die Datei aufrufst oder doppelklickst.

elch

[elch]

Nochmal ich,

ich hab das von oben mal angepasst:

Dim oWso, oFolder, oFile
Set oWso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oWso.GetFolder(" -hier den Pfad zu Sammelplatz reinpacken- ")
For Each oFile In oFolder.Files
If oFile.DateCreated < DateAdd("d", -14, Now) Then
oFile.Delete
End If
Next

in Notepad kopieren und als *.vbs speichern. Die .vbs solltest du auch als Task planen können.
Das löscht alle Files im angegebenen Pfad, die älter als 14 Tage sind. Wenn du alle Files löschen willst, auf die seit 14 Tagen nicht mehr zugrgriffen worden ist, dann musst du "DateCreated" mit "DateLastAccessed" ersetzen.

Und das ganze wie die Lottozahlen, ohne Gewähr.

gruss,
elch

[warhawk]

OK... so wie es aussieht arbeitet das Script aber nicht rekursiv oder? Es löscht nur die Dateien in einem Ordner. Ich muss aber auch Ordner selbst sowie alle weiteren Vertiefungen berücksichtigen. Dann wäre es wahrscheinlich auch besser in meinem Fall ein Date.Modified anstatt ein Date.Created zu nehmen. Gibts das?