Einzelnen Beitrag anzeigen

dopeline

Registriert seit: 7. Mär 2003
Ort: Berlin
304 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: In Ordner nach Datei suchen, deren Endung unbekannt ist

  Alt 25. Jul 2004, 16:51
Vielen Dank!

ich habe die Prozedur in eine Funktion geändert. Der Rückgabewert ist die Dateiendung:
Delphi-Quellcode:
function FindExtension (mask:String):String;
var search : TSearchRec;
    verz,
    extension: String;
begin
  verz:=ExtractFilePath(Application.ExeName)+'\Extracted\';
  if (FindFirst(verz+mask+'.*', faAnyFile, search) = 0) then begin
     repeat
       extension:= AnsiLowerCase(ExtractFileExt(verz + search.Name));
       result:=extension;
     until (FindNext(search) <> 0);
  end;
  FindClose(search);
end;
Das funktioniert super!
Danke!


Gruß, dopeline
  Mit Zitat antworten Zitat