Files Delphi

  1. Home
  2. Delphi
  3. Files
  4. Get all files from a directory
Title: Get all files from a directory
procedure 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;
Example usage:
ListFileDir('C:\WINDOWS\', ListBox1.Items);