Directorios

[vicrati]

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

[[Bicho]]

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

[vicrati]

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.

[[Bicho]]

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

Saludos

[vicrati]

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

[vicrati]

Hey bicho muchas gracias,
me va perfecto.
Gracias