Listar el contenido de un directorio

[[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