Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dateien im Filesystem/Unterordner nach Date löschen
Autor: Mr_c&b
Datum: 21.10.03 09:54
Moin alle zusammen, ich habe da ein kleines Script geproggt, welches die Dateien eines Verzeichnisses nach X Tagen verchiebt und danach nochmals nach X Tagen löscht. Nun brauche ich die Funktion noch für Unterverzeichnisse, zum einen das die Dateien innerhalb dieser Unterverzeichnisse mit dem Alter von X Tagen verschoben werden. Die Deluse Ausführung wäre dann noch wenn die Unterverzeichnisse leer sind, das diese ebenfalls gelöscht werden. Wäre super wenn mir jemand helfen könnte! Anbei mein jetziges Script! Vielen dank schonmal für jede Hilfe! '*** Anzahl der Dateien im Ordner ermitteln set fs = CreateObject("Scripting.FileSystemObject") set ordner = fs.GetFolder("D:\Users\Transfer\") anz_dateien = ordner.Files.Count '*** aktuelles Datum bestimmen akt_datum = (now) '***Überprüfen, ob die Protokolldatei bereitsexistiert, '***wenn nicht anlegen set logdatei = fs.OpenTextFile("D:\_logs\transfer.txt",8,true) '*** Wenn mindestens eine Datei vorhanden ist If not anz_dateien = "0" Then '*** Jede Datei der Reihe nach überprüfen For each datei in ordner.Files '*** Dateiname auslesen name = datei.name '*** Erstelldatum auslesen, und in Datum und Uhrzeit zerlegen Erstelldatum = datei.DateCreated '*** Überprüfen ob bereits 120 Stunden vergangen sind diff = DateDiff("h",erstelldatum, akt_datum) If diff > 120 Then '***File löschen fs.CopyFile "D:\Users\Transfer\" & name, "D:\_move\" & name fs.DeleteFile "D:\Users\Transfer\" & name '***Protokolleintrag erzeugen eintrag = akt_datum & vbTab & "Dateiname: " & name & vbTab & "Erstelldatum: " & Erstelldatum & vbTab & "Dateialter (h): " & diff logdatei.WriteLine(eintrag) End if next logdatei.Close End if '***Überprüfen, ob die Protokolldatei bereitsexistiert, '***wenn nicht anlegen set ordner_move = fs.GetFolder("D:\_move") anz_move_dateien = ordner_move.Files.Count set logdatei = fs.OpenTextFile("D:\_logs\movelogs\transfer_del.txt",8,true) If not anz_move_dateien = "0" Then For each datei in ordner_move.Files name = datei.name Erstelldatum = datei.DateCreated diff = DateDiff("h",erstelldatum, akt_datum) If diff >240 Then '***File löschen fs.DeleteFile "D:\_move\" & name '***Protokolleintrag erzeugen move_eintrag = akt_datum & vbTab & "Dateiname: " & name & vbTab & "Erstelldatum :" & Erstelldatum & vbTab & "Dateialter (h):" & diff logdatei.WriteLine(move_eintrag) end if next logdatei.Close end if

Dateien im Filesystem/Unterordner nach Date löschen	1.143	Mr_c&b	21.10.03 09:54
Re: Dateien im Filesystem/Unterordner nach Date löschen	544	Mr_c&b	22.10.03 17:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen