Listar el contenido de un directorio

[Alexandro]

Gracias a todos: Miren, lo que busco es como Gaak dice. Algo así, pero el problema con lo que expone Gaak es que no me muestra el contenido de las subcarpetas que estan dentro de la carpeta escogida por mi. Solo deja ver los ficheros que estan en ese directorio y pasa por alto las carpetas incuidas dentro. Como puedo modificar ese mismo procedure para obtener el resultado que busco?
Gracias de antemano.

[[coso]]

el componente filelistbox tiene la propiedad, dentro de filetype, lfdirectory. Ponla a true y te mostrará tb los directorios.

[[coso]]

si quieres usar el codigo de gaak, fijate para q sirve la linea

Código Delphi [-]
    if (SR.Attr <> faDirectory) then

saludos

[Alexandro]

Coso:
A lo que te refieres

Código Delphi [-]
(SR.Attr <> faDirectory)

es solo para que el acepte carpetas si es = o ficheros si es <>.
Si tengo que usar el FileListBox es =, cuando doy true la la propiedad ftDirectory solo me muestra los directorios que hay en el. Eso esta bien pero no me muestra lo que hay en esa subcarpeta.
Espero que me puedan ayudar.
Muchas gracias

[[coso]]

Ok te entendi mal. Debes usar recursividad :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
        st : TStringList;
begin
        st := TStringList.Create;
        AddPath('o:\temp',st);
        ListBox1.Items.Text := st.Text;
        st.Free;
end;
procedure TForm1.AddPath(s : string; st : TStringList);
var
  SR: TSearchRec;
begin

    if s[Length(s)]<>'\' then s := s + '\';
    if FindFirst(s+'*.*', faAnyFile, SR) <> 0 then exit; 

    repeat
       if (SR.Attr <> faDirectory) then st.Add(s+SR.Name);
       if (SR.Attr = faDirectory) and (SR.Name <> '..') and (SR.Name <> '.') then AddPath(s+SR.Name,st);
    until FindNext(SR)<>0;

    FindClose(SR);
end;

saludos

[[coso]]

vaya...ahora busque en el foro . Espero que de tanto reinventar la rueda no nos salga cuadrada

[Alexandro]

Coso 100 000 de gracias por todo. Y a todos los que me respondienron = de gracias. Ya me funcionó. Continuen así.
Suerte y salu2