contar subdirectorios...

[Jorghino reyes]

Hola amigos, podran ayudarme con esto porfavor.

Requiero contar todas las subcarpetas que existen en una determinada ruta.

Pero unicamente los subdirectorios (o subcarpetas) contenidos. No archivos, no directorios "." ni ".." y mandar el numero a una variable o etiqueta

Como podria hacerle , lo que he estado investigando es referente a findfirst. pero requiero de una ayuda.

De antemano Gracias.

Saludos!

[dec]

Hola,

Código Delphi [-]
 // Devuelve el número de subdirectorios de
 // un determinado directorio. Pueden contarse
 // los subdirectorios ocultos, de sistema y de
 // "solo lectura". Como parámetros hay que pasar
 // la ruta del directorio cuyos subdirectorios
 // quieren contarse, además de si hay que tener
 // en cuenta los subdirectorios cuyos atributos
 // coincidan con los mencionados arriba. 
 //
 function NumeroSubDirectorios(directorio: string;
   ocultos, sistema, soloLectura: boolean) : integer;
 var
   SR: TSearchRec;
   atributos: Cardinal;
 begin
   Result := 0;
   atributos := faDirectory;
   if ocultos then atributos := atributos or faHidden;
   if sistema then atributos := atributos or faSysFile;
   if soloLectura then atributos := atributos or faReadOnly;
   directorio := IncludeTrailingPathDelimiter(directorio);
   if FindFirst(directorio +'*', atributos, SR) = 0 then
   begin
     repeat
       if (SR.Name <> '.') and (SR.Name <> '..')
         and DirectoryExists(directorio + SR.Name) then
           Inc(Result);
     until FindNext(SR) <> 0;
     SysUtils.FindClose(SR);
   end;
 end;

[Jorghino reyes]

Execelente, te agradezco el apoyo. !