[MoS]

Сообщение от 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

Я кстати уже писал, ток ТС заигнорил.

Да, точно, не увидел в низу!