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