Имена каталогов и подкаталогов

[Xandr]

Подскажите. Выбираю каталог с помощь ShellComboBox1. Мне нужно найти по порядку имена всех подкаталогов причем и подкаталогов в подкаталогах, т.е. любой глубины. Спасибо.

[Stilet]

Рекурсивный поиск. в Delphi World порой

[mutabor]

вот кусок функции такого поиска, все лишнее я повыкидывал (она у меня только файлы искала), но не проверял, по идее должна работать
параметры:
path - путь со слешем
ext - '*.*' (поиск любых файлов)
aListBox - листбокс в к-рый записывать, можешь заменить на что-то другое

//поиск включая подпапки
procedure FindIt(path, ext: string; aListBox: TListBox);
var
  SR: TSearchRec;
begin
if FindFirst(Path+Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr = faDirectory) then
      if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
        aListBox.Items.Add(SR.Name);
        FindIt(Path+sr.Name+'\',ext,aListBox);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

[Xandr]

Вобщем так, мне нужно чтобы все найденные имена подкаталогов в выбранном каталоге выводились к примеру в листбокс. Недаходит до меня. Напишите пример плиз.

[mutabor]

Вобщем так, мне нужно чтобы все найденные имена подкаталогов в выбранном каталоге выводились к примеру в листбокс. Недаходит до меня. Напишите пример плиз.

а я тебе что дал

допустим у тебя есть путь к директории, неважно откуда ты его получил (тебе нужно получить из ShellComboBox1), простеший пример ExtractFilePath(Application.ExeName ), эта функция вернет путь к директории программы, дальше нужен параметр Ext, пишем '*.*' (так и пишем все пять символов), далее нужен листбокс, допустим он имеет имя ListBox1. Получаем такой вызов процедуры:

FindIt(ExtractFilePath(Application. ExeName),'*.*',ListBox1);

После ее выполнения, в листбоксе будет список всех найденных директорий, включая вложенные.

прим. Описание процедуры должно быть выше места где ее вызываешь.

[Xandr]

Спасибо за полное объяснение.

прим. Описание процедуры должно быть выше места где ее вызываешь.

я не настолько... просто сутки не спавши, доходило туго.
Еще раз спасибо.

[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);

[Xandr]

mutabor, что то она не так работает, я выбираю например папку D:\Picture, а в листбокс заполняется и D:\, а надо только Picture

[mutabor]

Путь надо передавать со слешем на конце
'D:\Picture\'
тогда найдет все вложенные в Picture папки, но не саму Picture.
Picture (а также все что есть на диске) найдет если передать 'D:\'

Только что проверил, все нормально работает.

p.s. добавь в самое начало процедуры после первого begin эту проверку

if Path <> '' then
  if Path[Length(Path)] <> '\' then Path:=Path+'\';

Да, и листбокс не забывай очищать перед новым поиском:
ListBox1.Clear;

[Xandr]

Спасибо огромное, очень помог.