(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: In Ordner nach Datei suchen, deren Endung unbekannt ist
25. Jul 2004, 16:24
die Zeile
if (FindFirst(verz + '*.*',faAnyfile,search) = 0) then
abändern in
if (FindFirst(verz + 'dateinameOhneEndung.*',faAnyfile,search) = 0) then
Dadurch bekommst du nur dateien zurück geliefert welche den richtigen dateinamenanfang haben
Was soll eigentlich passieren wenn eine ".bmp", ".jpg" und ".gif" existiert. Welche der Dateien willst du dann verwenden? Du müsstest da noch eine hierarchie festlegen
Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
|