Visual Basic Forum

leo · Newbie Anmeldedatum: 30.03.2009 Beiträge: 4

Kann mir jemand helfen?????

Das ist mein Code und ich bekomme einen Syntax Fehler!!!

Option Explicit

Dim FSO, Datei, Verzeichnis

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Verzeichnis = FSO.GetFolder("C:\Test\FAX")

For Each Datei In Verzeichnis.Files

If ((DateDiff("d", Datei.DateCreated, Now)) > 14) and

((Datei.Name, 4)) = ".PDF" Then

Datei.Delete

End If

Next

Was ist falsch?????

DANKE !!!!!

gruß leo
_________________

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

If ((DateDiff("d", Datei.DateCreated, Now)) > 14) and right(Datei.Name, 4) = ".PDF" Then