Buscar todos los subdirectorios existentes en un directorio
 

Me gustaria saber como buscar todos los subdirectorios que hay dentro de un directorio, pero no solo los que esten dentro de ese directorio sino tambien todos los directorios que esten dentro de esos subdirectorios y asi sucesivamente.

Muchas gracias.

Holas! Mira, para lo que vos necesitas va perfecto una funcion recursiva...
Por ejemplo aslgo como esto:

Código Delphi [-]
var dirs: TStringList;
...
...
procedure GetDirList(path: string);
   var sr: TSearchRec;
begin
   if FindFirst(path+'\*.*', faDirectory, sr)=0 then begin
      while FindNext(sr)=0 do
         if ((sr.Attr and faDirectory)<>0) and (sr.Name<>'.') and (sr.Name<>'..') then begin
            { agrega el directorio }
            dirs.Add(path+'\'+sr.Name);
            { agrega los subdirectorios }
          GetDirList(path+'\'+sr.Name);
         end;
    FindClose(sr);
   end;
end;

la variable dirs debe estar inicializada antes de llamar a la funcion.

Muchisimas gracias funciona perfectamente :D :D