Wildcards in Delphi 2006

[Christoph27]

Hallo

Ich hab ein Programm in Delphi 7 erstellt und wollte es jetzt unter Turbo Delphi 2006 starten.
Jetzt ist das Problem das es mit den Wildcards nicht mehr klappt. In Delphi 7 ging es noch.
Das Programm soll prüfen ob sich Datein mit der Endung VCR in dem angegebenen Verzeichniss befinden.
Er findet aber nichts. Geb ich statt der Wildcard einen Dateinamen an ist alles gut.

If not FileExists('C:\VCR\*.VCR') then .... Geht nicht aber
If not FileExists('C:\VCR\VER0010.VCR') then .... Das geht

Jetzt bin ich ratlos... Wie gesagt - unter Delphi 7 ging es genau so ohne Probleme.

Bin dankbar für jeden Tip.

[Luckie]

So viel ich weiß, hat FileExists noch nie WildCards unterstützt. :gruebel:

[Hawkeye219]

Zitat:

Zitat von Luckie

So viel ich weiß, hat FileExists noch nie WildCards unterstützt.

Das dachte ich auch bis eben...

"Früher" implementierte Borland FileExists durch einen Aufruf der Funktion FileAge, die wiederum FindFirstFile (mit WildCard-Unterstützung) aufruft. Inzwischen greifen sie auf GetFileAttributes (ohne WildCard-Unterstützung) zurück.

Gruß Hawkeye

[Luckie]

Gut zu wissen. Ergo will man die Wildcard Unterstützung wieder haben, muss man es sich nachprogrammieren, sollte aber kein Problem sein.

[Christoph27]

Hallo

Vielen Dank.

Hab das jetzt so gelöst

If FileAge('C:\VCR\*.VCR') = -1 then ....

Geht auch :???: