FileExists mit Wildecard-Support

[himitsu]

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.

[Bernhard Geyer]

danke erstmal.

Gerade gefunden das ich schon eine entsprechende Helper-Funktion implementiert hatte.
Scheinbar bei der Suche falschen Suchbegriff genutzt