Sieht doch ganz gut aus, falls mask z.B. 'c:\myfile.*' entspricht...
Code:
procedure ScanDirectory(mask : String);
var search : TSearchRec;
verz,
extension: String;
begin
verz := ExtractFilePath(mask);
if verz[length(verz)] <> '\' then
verz := verz + '\';
if (FindFirst(mask, faAnyFile, search) = 0) then begin
repeat
extension:= AnsiLowerCase(ExtractFileExt(verz + search.Name));
if extension='bmp' then... else
if extension='gif' then... else
if extension='jpg' then... else
...
until (FindNext(search) <> 0);
end;
FindClose(search);
end;
Ach ja - in deiner o.g. Funktion sollte das FindClose ein End-Statement weiter hintern sitzen, sodass es auch dann ausgeführt wird, wenn die letzte Bedingung nicht erfüllt ist!
Grüsse!