Hallo,
stehe vor dem Problem, Dateien, die ein bestimmtes Änderungsdatum überschritten haben
automatisiert zu löschen.
Wollte da folgendes Script ausprobieren:
-----------------------------------------------------------------------------------------------------
Option Explicit
Dim intZahl '
Dim strExtension '
Dim intTage '
Dim objDatei '
Dim objFSO '
Dim objOrdner '
Dim strOrdner '
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = "c:\temp"
strExtension = ""
intTage = 30
Set objOrdner = objFSO.GetFolder(strOrdner)
intZahl = 0
For Each objDatei In objOrdner.Files
If LCase(Right(objDatei.name, Len(strExtension))) = LCase(strExtension) _
And DateDiff("d", objDatei.DateLastModified, Now) > intTage Then
objDatei.Delete
intZahl = intZahl + 1
End If
Next
WScript.Echo intZahl & " Dateien gelöscht."
------------------------------------------------------------------------------------------------------
Als Parameter hab ich das Verzeichnis "C:\temp", Alter: Älter als 30 Tage
hinterlegt. bei STRExtension steht "" drin, also soll er alle Dateiendungen
berücksichtigen!
Wenn ich das Script laufen lasse, dann gibt er immer aus: 0 Dateien gelöscht.
In dem Ordner sind aber 147 Dateien drin, die älter als 30 Tage sind!!
Was mache ich da bloß falsch!
Könnt ihr mir da bitte weiterhelfen, wäre echt wichtig !
Vielen Dank
hwimmer