VBS Script: Dateien älter als x Tage löschen
Hallo zusammen,
ich habe eine Frage. Ich bin auf der Suche nach ein Script das Dateien älter als x Tage löscht, das ist natürlich schon mindesten 100 male behandelt und beschrieben worden. Ich suche aber eins das die Angabe der Tage variabel aus den Dateien Namen liest, ist das möglich?
Beispiel:
Testdokumnet-3-.pdf
dieses Dokument würde durch das Script nach 3 Tagen gelöscht
Testdokument-5-.pdf
dieses Dokument würde durch das Script nach 5 Tagen gelöscht
Gruß
Frank
ich habe eine Frage. Ich bin auf der Suche nach ein Script das Dateien älter als x Tage löscht, das ist natürlich schon mindesten 100 male behandelt und beschrieben worden. Ich suche aber eins das die Angabe der Tage variabel aus den Dateien Namen liest, ist das möglich?
Beispiel:
Testdokumnet-3-.pdf
dieses Dokument würde durch das Script nach 3 Tagen gelöscht
Testdokument-5-.pdf
dieses Dokument würde durch das Script nach 5 Tagen gelöscht
Gruß
Frank
Please also mark the comments that contributed to the solution of the article
Content-Key: 359237
Url: https://administrator.de/contentid/359237
Printed on: April 20, 2024 at 16:04 o'clock
4 Comments
Latest comment
Moin moin.
Code ist angepasst an dein spezielles Muster
Testdokument-[ZAHLEN]-.pdf
Pattern bei Bedarf in Zeile 4 anpassen.
Gut's Neues
Gruß Squash
FOLDER = "C:\PDF"
set fso = CreateObject("Scripting.FilesystemObject"
set regex = CreateObject("vbscript.regexp")
regex.pattern = "-(\d+)-$"
for each file in fso.GetFolder(FOLDER).Files
set match = regex.Execute(fso.GetBasename(file.Name))
if match.count > 0 then
intDays = CInt(match(0).submatches(0))
if DateAdd("d",intDays,file.DateCreated) < Now() then
file.Delete
End if
End if
Next
Testdokument-[ZAHLEN]-.pdf
Pattern bei Bedarf in Zeile 4 anpassen.
Gut's Neues
Gruß Squash
So ist es.