Цитата:
Сообщение от angvelem
Или ешё.
Код:
procedure FindFiles(const Path : String);
var
SR : TSearchRec;
Ext : String;
begin
if FindFirst(ExpandFileName(Path + '\*.*'), faAnyFile, SR) = 0 then
try
repeat
if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') then
FindFiles(ExpandFileName(Path + '\' + SR.Name))
else if (SR.Name[1] <> '.') then
ListBox1.Items.Add(SR.Name);
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
end;
|
Спасибо, именно этот код очень помог!