Como obtener directorios

[jorgito.crazy]

Hola amigos, como puedo obtener la lista de todos los directorios (no ficheros) dentro de otro:

ejemplo: Dir CASA y Dentro COCINA y SALA.

Deberia obtener: COCINA
SALA
Un saludo:D

[dec]

Hola,

Echa un vistazo a este Hilo (http://www.clubdelphi.com/foros/showthread.php?t=20863), que aparece enlazado abajo, en esta misma página, en los "temas similares", lo que significa que el buscador de los Foros (http://www.clubdelphi.com/foros/search.php) pueden proporcionarte información sobre lo que necesitas.

Actualización: Aquí te dejo cierto código fuente que tal vez puedas terminar de adaptar a tus necesidades:


procedure ListaDirectorios(var lista:
TStrings; dirPadre: string);
var
SR: TSearchRec;
begin
dirPadre := IncludeTrailingPathDelimiter(dirPadre);
FindFirst(PChar(dirPadre + '*'), faDirectory, SR);
repeat
lista.Add(SR.Name);
until (FindNext(SR) <> 0);
FindClose(SR);
end;


Ejemplo de llamada al procedimiento anterior:


procedure TForm1.Button1Click(Sender: TObject);
var
directorios: TStrings;
begin
directorios := TStringList.Create;
ListaDirectorios(directorios, 'C:\Archivos de programa');
ShowMessage(directorios.Text);
directorios.Free;
end;

[jorgito.crazy]

Gracias David, es perfecto, muchas gracias, disculpa por no buscar respuestas anteriores, pero es que entre hace poco al club y hoy fue que leí la guía de estilos, la próxima vez buscaré por el club, Muchas Gracias otra vez.

Un saludo:) :)