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:


//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 (http://www.clubdelphi.com/trucos/) está éste (http://www.clubdelphi.com/trucos/index.php?id=16&scroll=0&scrollb=0) 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