List the files of a directory 1

[angeloagra]

Does anybody know any Delphi command which I can use to get the names of all the files contained by a directory informed as an argument?

Thanks!

 

[Zathras]

Lookup the [blue]

 FindFirst

[/color] function in the help file and experiment with the provided example.

 

[DelphiAaron]

procedure TForm1.ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListFileDir('C:\WINDOWS\', ListBox1.Items);
end;

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au