Hent liste af filer af bestemt type

procedure TForm1.BitBtn1Click(Sender: TObject);
var s : string;
    srec : tsearchrec;
begin
  s := trim(edit1.text);
  listbox1.clear;
  if findfirst(s,faanyfile,srec) = 0 then
  begin
    listbox1.items.add(srec.Name);
    while findnext(srec) = 0 do
    begin
      listbox1.items.add(srec.name);
    end;
  end;
  findclose(srec);
end;

hvis du for eksempel indtaster D:\\billeder\\*.jpg i editboksen, og trykker bitbtn1, får du den liste du gerne vil ha\'

ha\' det godt
hatecaps

Du kan hente Scanner fra www.e-lind.dk en comp. der kan det du vil med source