Dateien löschen

29/01/2009 - 17:28 von Beck, Alwin | Report spam
Hallo,
ich möchte ein Skirpt welches folg. ausführen kann - wie mache ich das
:

Löschen aller Dateien mit der Dateiendung BRD
Nur Dateien mit Änderungsdatum im Zeitraum 01.01.2005 bis 31.12.2007
dieses im Verzeichnis : \\meinserver\meinpfad

Welche Möglichkeiten gibt es hier ?

Danke
Gruß
albe
 

Lesen sie die antworten

#1 Pegasus \(MVP\)
29/01/2009 - 18:00 | Warnen spam
"Beck, Alwin" wrote in message
news:
Hallo,
ich möchte ein Skirpt welches folg. ausführen kann - wie mache ich das :

Löschen aller Dateien mit der Dateiendung BRD
Nur Dateien mit Änderungsdatum im Zeitraum 01.01.2005 bis 31.12.2007
dieses im Verzeichnis : \\meinserver\meinpfad

Welche Möglichkeiten gibt es hier ?

Danke
Gruß
albe



Du könntest es so tun:

Set oFSO = CreateObject("Scripting.FileSystemObject")
dAnfang = CDate("01 01 2005")
dEnde = CDate("31 12 2007")
sOrdner = "\\pegasus\Ordner\Fri"
sExt = ".BRD"

For Each oFile In oFSO.GetFolder(sOrdner).Files
If UCase(Right(oFile.Name, 4)) = sExt Then
If oFile.DateLastModified >= dAnfang _
And oFile.DateLastModified <= dEnde Then
WScript.Echo "Datei """ & oFile.Path & """ wird gelöscht."
' oFile.Delete
End If
End If
Next

Um das Script zu aktivieren, musst du das Anfühurngszeichen in Zeile 12
entfernen. Gleichzeitig kannst du ein Anführungszeichen an den Anfang von
Zeile 11 setzen.

Ähnliche fragen