FileExists mit D2007 funktioniert nicht mehr - Hilfe

[Cappuccino]

Hi,
ich kann es nicht glauben, vermutlich bin ich blind.

FileExixts('E:\EigeneDateien\Sprachen\uVision\inc\ obd\2008_05_13\Master*.eds')

liefert bei D6 True
und bei D2007 Rad Studio ein FALSE

wenn ich die Wildcard * bei Master entferne, wird die Datei gefunden.
Die Wildcard wird aber benötigt.

Das D6 Projekt habe ich in D2007 Win 32 geladen und damit wurde das Projekt upgedatet. Das hat auch ganz gut funktioniert.
Dann noch ein abschließender Test - und rums.

was ich nachgeprüft habe:
Es wird auch sysUtils.FileExists verwendet
D2007 neu starten nützt nix

weiß jemand woran das liegt?

Gruß
Tom

[Luckie]

Also dass FileExists Wildcards unterstützt ist mir neu.

[Assertor]

Des Rätsels Lösung für Cappuccino ist:

http://qc.borland.com/wc/qcmain.aspx?d=49634

Dort ist dann auch zu entnehmen:

• In ältern Delphi z.B. D5 oder D7 basiert die SysUtils.FileExists auf einem Aufruf von FileAge und damit auf FindFirstFile, also unterstützt FileExists hier auch - undokumentiert (!) - WildCards
• Neuere Delphi nutzen in der SysUtils.FileExist die GetFileAttributes API, daher keine WildCards

Gruß Assertor

[Cappuccino]

Vielen Dank für die Antwort, das beruhigt.
Jetzt muss ich nur noch schauen, wo mit Wildcards aufgerufen wird.

Gruß + Danke
Tom

[mschaefer]

Schau doch mal in die D6 Quellen, das mit dem FileAge und bau Dir Deine eigenen MyFileExists... // Grüße / Martin

[mkinzler]

Oder du implementierst dir eine eigene Funktion, die das alte Verhalten zeigt, obwohl dies eigentlich nicht unbedingt sinnvoll war.

[Assertor]

Ich verlinke mal zu einem Thread mit dem gleichen Thema:

http://www.delphipraxis.net/internal...ard+fileexists

Dort ist auch eine einfache Lösung von Christoph27:
If FileAge('C:\VCR\*.VCR') = -1 then .... Gruß Assertor

[toms]

Bei älteren Delphi Versionen sieht FileExists() so aus:

Delphi-Quellcode:

function FileExists(const FileName: string): Boolean;
begin
  Result := FileAge(FileName) <> -1;
end;

[jbg]

Zitat von Assertor:

Dort ist auch eine einfache Lösung von Christoph27:
If FileAge('C:\VCR\*.VCR') = -1 then ....

Hast du das auch ausprobiert? Denn das funktioniert mit Delphi 2007 nur unter Win9x. Ab Win2000 wird GetFileAttribuesEx aufgerufen, dass wiederum nicht auf FindFirstFile basiert.

[Assertor]

Zitat von jbg:

Hast du das auch ausprobiert?

Nein, nur direkt aus dem themengleichen Thread übernommen und den Link eingefügt. Das erklärt auch den Unterschied "<> -1" und "= 1" bei der boolschen Evaluierung.

Ich selbst nutze eine Unicode-fähige Wildcardfunktion in unseren Sourcen.

Ich empfehle jetzt mal die TntUnicode-Ergänzung von Troy Wolbrink namens Tnt LX Controls.

Dort findet man dann in der Datei TntLXUtils.pas eine Funktions namens GetFilesInPath. Diese sammelt, Wildcard-fähig, auch in Unicode-Verzeichnissen, alle Dateien in eine (Tnt)StringList. Diese einfach auf Ihre Länge prüfen und in eine Funktion verpacken.

Schon hat man seine FileExists mit Ansi/Unicode-Support von Win9x bis Vista