Du skal bruge en Tsearchrec og dens FindFirst og FindNext funktion.
Her et lidt fra et program til at finde MP3-filer (ikke det hele er med).
procedure TFormMp3.SogMp3(mappe:string;fil:string);
var
tal:integer;
searchrec:Tsearchrec;
begin
Tal:=0;
searchrec.name:='';
searchrec.Size:=0;
if FindFirst(mappe+fil, faanyfile, SearchRec)=0 then
begin
FormMp3.TableMp3.Insert;
FormMp3.TableMp3['filnavn']:=SearchRec.Name;
FormMp3.TableMp3['størrelse']:=IntToStr(SearchRec.Size);
FormMp3.TableMp3['sti']:=mappe;
FormMp3.TableMp3['Nr']:=tal;
tal:=tal+1 ;
if (SearchRec.Attr and sysutils.faReadOnly > 0) then
FormMp3.TableMp3['Read']:='true'
else
begin
FormMp3.TableMp3['Read']:='false';
end;
FormMp3.TableMp3.Post;
end;
while (FindNext(SearchRec) = 0) do
begin
FormMp3.TableMp3.Insert;
FormMp3.TableMp3['filnavn']:=SearchRec.Name;
FormMp3.TableMp3['størrelse']:=IntToStr(SearchRec.Size);
FormMp3.TableMp3['sti']:=mappe;
FormMp3.TableMp3['Nr']:=tal;
tal:=tal+1 ;
if (SearchRec.Attr and sysutils.faReadOnly > 0) then
FormMp3.TableMp3['Read']:='true'
else
begin
FormMp3.TableMp3['Read']:='false';
end ;
FormMp3.TableMp3.Post;
LabelPoster.Caption:=IntToStr(TableMp3.Recordcount);
LabelPoster.Repaint;
end;
FindClose(SearchRec);
end;
VH
T dér