he h0

will alte datein löschen lassen

es soll aber unterschieden werden, was für datein sich im ordner befinden

will nur *.ost datein löschen lassen


bin nun soweit gekommen:

Code:
\\\\\\\' Ab hier den Anforderungen anpassen
Verzeichnis = \\\\\\\"C:\\\\\\\\Dokumente und Einstellungen\\\\\\\\x\\\\\\\\Desktop\\\\\\\\ost löschen\\\\\\\\test\\\\\\\"   \\\\\\\' Verzeichnis
Aufheben    = 0                     \\\\\\\' Anzahl der Tage
\\\\\\\' Ende der Anpassungen


Set fso = CreateObject(\\\\\\\"Scripting.FileSystemObject\\\\\\\")
Set ordner = fso.GetFolder(Verzeichnis)
Set dateien = ordner.files

heute = Date()
For Each datei In dateien
  If datei.DateLastModified > (heute - Aufheben) Then


     If datei.name = *.ost Then
		msgbox(\"gesuchte datei existiert\")

	else 
		msgbox(\"keine datei gefunden\")
	end if


    datei.Delete
  End If
Next

\\\\\\\'----------------------------
\\\\\\\'eingentlich ist der pfeil genau anders rum, und zwar so: <
\\\\\\\'nur damit die abfrage true wird und die datein gelöscht werden


\\\\\\\'------------------------------------------------------------------------------------------
\\\\\\\'Error-Log:

zeit = Time()
Set oFile = fso.OpenTextFile(\\\\\\\"C:\\\\\\\\Dokumente und Einstellungen\\\\\\\\x\\\\\\\\Desktop\\\\\\\\ost löschen\\\\\\\\log.txt\\\\\\\",8,true)
If err.Number <> 0 Then
    oFile.WriteLine \\\\\\\"Fehler2: \\\\\\\" & err.Number & \\\\\\\" \\\\\\\" & err.Description
    err.Clear
Else
    oFile.WriteLine \\\\\\\"Kein Fehler aufgetreten.    \\\\\\\" & heute & \\\\\\\"     \\\\\\\" & zeit
End If
oFile.close


\\\\\\\' -------------------------------------------------------------------------------------------
msgbox (\\\\\\\"fertig\\\\\\\")
etz bringt er mir halt nen fehler, weil *.ost kein string ist
schreib ich \"*.ost\" bringt er halt keinen fehler, aber die abfrage is fürn arsch


also:
--> Vorschläge!!


thx
servus




//ich seh grad, durch addslashes is der ganze code ein wenig komisch geworden, einfach ignorieren...