Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- ListFileDir('C:\WINDOWS\', ListBox1.Items);
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement