Доработка процедуры

[Nice42ru]

Сообщение от mutabor

Вот более продвинутая версия этой процедуры, пока проверял немного усовершенствовал, можно добавить дополнительный параметр - spaces, с ним в листбоксе можно будет визуально увидеть степень вложенности.
Параметр level вручную указывать не нужно.

procedure FindIt(path, ext: string; aListBox: TListBox;
  spaces: boolean = false; level: integer = 0);
var
  SR: TSearchRec;
  s: string;
  i: integer;
begin
if FindFirst(Path+Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr = faDirectory) then
      if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
        s:='';
        for i:=0 to level-1 do
          s:=s+'    ';
        aListBox.Items.Add(s+SR.Name);
        Inc(level);
        if spaces then
          FindIt(Path+sr.Name+'\',ext,aListBox,true,level)
        else
          FindIt(Path+sr.Name+'\',ext,aListBox);
        Dec(level);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

примеры вызова
FindIt(ExtractFilePath(Application. ExeName),'*.*', ListBox1);
FindIt(ExtractFilePath(Application. ExeName),'*.*', ListBox1,true);

Вот процедура для вывода в ListBox всех папок и подпапок, как их выводить с полным путём тоесть
есть папки
c:/a/b/c
c:/a/s/

и чтобы при поиске в листбоксе появилось
c:/a/
c:/a/b/
c:/a/b/c
c:/a/s
а не просто a b c s как в этой процедуре, прошу вашей помощи!

[quit]

aListBox.Items.Add(path+'/'+SR.Name);

[Nice42ru]

спасибо! Тему можно закрыть