Mega Code Archive
Detect all files in directory
<![CDATA[
Title: Detect all files in directory
Use SearchFiles procedure. You should specify a directory, and after that, this function returns a list of files in this folder.
Main moments are FindFirst and FindNext functions.
procedure TForm1.SearchFiles(St: string);
var
MySearch: TSearchRec;
FindResult: Integer;
begin
FindResult:=FindFirst(St+'\*.*', faAnyFile, MySearch);
if (MySearch.Name<>'.')and(MySearch.Name<>'..') then
Memo1.Lines.Add(MySearch.Name);
while FindNext(MySearch)=0 do
begin
if (MySearch.Attr<>faDirectory)and
(MySearch.Name<>'.')and
(MySearch.Name<>'..') then
Memo1.Lines.Add(MySearch.Name);
end;
end;
]]>