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

[MS]

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

[RXL]

Рекурсия поможет!
Ф-ия что-то типа:
0. на входе - путь к директории для сканирования.
1. открыть дилекторию
2. просканить по порядку
3. на каждую директорию: добавить в выходной список и вызвать ф-ию рекурсивно, с новыми параметрами.
4. закрыть директорию.

[MS]

Вот нашел фнкцию:

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(form1.SXSkinLabel4.Caption+'\'),'*.*', ListBox1);
FindIt(ExtractFilePath(form1.SXSkinLabel4.Caption)+'\','*.*', ListBox1,true);

У меня в form1.SXSkinLabel4.Caption путь в каталог. пример D:\Pic\ Но у меня в listbox выводиться не только выбранная папка с подпапками, но и все подпапки на D, помогите, а то нервы уже здают.

[RXL]

MS, так отладчиком встань в начало ф-ии и посмотри, что в нее попадает.

Кстати, не знаю как в дельфях, а по сишному - бекслеши в константах надо удваивать.

[zubr]

Кстати, не знаю как в дельфях, а по сишному - бекслеши в константах надо удваивать.

В дельфях не надо.