Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.049 Beiträge
 
Delphi 12 Athens
 
#3

AW: FileExists mit Wildecard-Support

  Alt 31. Jul 2022, 19:04
if TDirectory.GetFiles('C:\Irgendwo', 'abc*.xyz') <> nil then

zumindestens einfach, falls schnell genug.

Ansonsten ist das wohl am Schnellsten:

Delphi-Quellcode:
var Dummy: TWIN32FindData;

if Winapi.Windows.FindClose(FindFirstFile('C:\*.ini', Dummy)) then
  Beep;


FileExists hat früher nur FindFirstFile gemacht (oder vielleicht auch damals schon mit CreateFile, aber zumindestens mit anderer Bedingung für den Fallback).
Jetzt macht es ein CreateFile ... falls das nicht ging (durch Sharing blockiert), wird zwar immernoch alternativ FindFirstFile gemacht, aber nicht bei einem "ungültigen" Namen, was es mit Wildcard nunmal ist.

PS: TFile.Exists macht intern auch nur FileExists, also diesbezüglich keine Änderung.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (31. Jul 2022 um 19:32 Uhr)
  Mit Zitat antworten Zitat