Foros Club Delphi - Directorios

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Directorios (https://www.clubdelphi.com/foros/showthread.php?t=39259)

hola me gustaria saber si delphi tiene alguna funcion para contar los directorios que hay dentro de un directorio.
Gracias

Hola, una manera un poco chapucera y sencilla podría ser la siguiente:

Poner un componente TDirectoryListBox de la paleta Win 3.1 y en el evento OnChange puedes poner este codigo:

Código Delphi [-]//Ojo, se ejecuta al hacer dobleclic sobre un directorio
procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  Edit1.Text := IntToStr(DirectoryListBox1.Items.Count -1 -DirectoryListBox1.ItemIndex);
  //A la cantidad de items que hay en el list, le quitas uno porque empieza desde 0, y le quitas el indice del directorio en el que estas y te dice la cantidad de subdirectorios
end;

Aunque ahora que veo, en la sección de trucos está éste que quizá te lo resuelva.

Espero te sirva.

Saludos

Muchas gracias pero lo necesito sin ListBoxDirectory.
Necesito que al inicializar un programa me situe en un directorio y cuente cuantos directorios tiene ese directorio.
Gracias.

¿Has terminado de leer mi post anterior (donde hay un link a un truco que hace lo que pides) o has pasado directamente?

Saludos

Oh, perdona no lo habia leido.
Gracias.
Voy a ver si me sirve

Hey bicho muchas gracias,
me va perfecto.
Gracias