List filnavne i dir..

Du skal nok bruge findfirst og findnext

procedure TForm1.Button5Click(Sender: TObject);
var
SR: TSearchRec;
I: Integer;
sl: tstringlist;
begin
  sl := tstringlist.create;
  I := FindFirst(\'c:\\*.*\', faAnyFile, SR);
  try
    while I=0 do
    begin
    ListBox1.Items.Add(sr.Name);

      I := findnext(sr);
    end;
  finally
    findclose(sr);
    sl.free;
  end;
end;

----------------
her er brugt anyfile du kan også bruge

faReadOnly    $00000001    Read-only files
faHidden    $00000002    Hidden files
faSysFile    $00000004    System files
faVolumeID    $00000008    Volume ID files
faDirectory    $00000010    Directory files
faArchive    $00000020    Archive files
faAnyFile    $0000003F    Any file


Stoney

du kan også prøve at hente scanner.pas på www.e-lind.dk

/Martin

Takker...
Og godt nytår!