Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dateien im Filesystem löschen.
Autor: Mr_c&b
Datum: 20.10.03 11:11
Ich habe das schon abgeäbnderte Script gepostet, leider kann ich den Beitrag nicht editieren. deswegen nochmal das Script, welches funktioniert wenn keine Unterverzeichnisse bestehen. Um eine schnelle Antwort / hilkfe wäre ich sehr Dankbar!!! '*** 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 löschen.	767	Mr_c&b	20.10.03 09:53
Re: Dateien im Filesystem löschen.	461	Mr_c&b	20.10.03 11:11
Re: Dateien im Filesystem löschen.	370	Mr_c&b	22.10.03 17:12

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