Цитата:
Сообщение от M.A.D.M.A.N.
Раз никак не дойдет что тебе толкуют, вот тебе солюшен
Код:
procedure TForm1.FindFile(Dir: String);
Var SR:TSearchRec;
FindRes:Integer;
begin
FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);
While FindRes=0 do
begin
if ((SR.Attr and faDirectory)=faDirectory) and ((SR.Name='.')or(SR.Name='..')) then
begin
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then // если найден каталог, то
begin
FindFile(Dir+SR.Name+'\*.*'); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли
FindRes:=FindNext(SR); // после осмотра вложенного каталога мы продолжаем поиск в этом каталоге
Continue; // продолжить цикл
end;
FindRes:=FindNext(SR);
ListBox1.Items.Add(SR.Name);
end;
FindClose(SR);
end;
|
Спасибо, правда почему-то теперь одну папку занесло в листбокс!
Цитата:
Сообщение от Bargest
Я кстати уже писал, ток ТС заигнорил.
|
Да, точно, не увидел в низу!