Listar archivos?

[jam888]

Querida gente del foro, buenas tardes, me pregunto como hacer para leer los archivos que se encuentran en una determinada carpeta, la cual envio a un procedimiento como parametro, por ejemplo, dentro de la carpeta d:\Documentos tengo 3 archivos doc1.txt, doc2.txt y regilla1.xls, quisiera mostrar estos 3 nombres de archivos en un shomessage uno debajo de otro.
desde ya gracias.
Un Abrazo.

[marcoszorrilla]

Y por qué no utilizas un FileListBox de la Paleta Win31.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.Mask:='*.txt';
FileListBox1.Drive:='e';
end;

Un Saludo.

[jam888]

Se que puedo utilizar ese componente, pero no, debo acomodar las lista de archivos de otra manera, para redireccionarlos.
Otra consulta, como creo una carpeta mediante comandos en delphi y como la elimino?
desde ya gracias.

[marcoszorrilla]

La próxima vez abre un hilo nuevo puesto que se trata de una pregunta nueva:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('E:\Mi_Prueba') then
    if not CreateDir('E:\Mi_Prueba') then
    raise Exception.Create('No Puedo crear el Directorio.');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if  DirectoryExists('E:\Mi_Prueba') then
RemoveDir('E:\Mi_Prueba')
end;

Un Saludo.

[marcoszorrilla]

Para listar los ficheros en ShowMessage utilizando el FileListBox, sino quieres que se vea símplemente le pones su propiedad visible a False y arreglado.

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
cLista:String;
i:Integer;
begin
FileListBox1.Mask:='*.txt';
FileListBox1.Drive:='e';

For i:= 0 to FileListbox1.Items.Count -1 do
begin
cLista:=cLista+FileListbox1.Items.strings[i]+Chr(10)+Chr(13);
end;

ShowMessage(cLista);
end;

Un Saludo.

[ixMike]

Lo siento mucho, marcoszorrilla, pero lo del FileListBox oculto es una chapuza (lo digo sin ánimo de ofender). Lo sé porque una vez lo hice así.
Lo que se queda más profesional (de todo lo que conozco), más limpio, lo que menos recursos consume y lo más rápido (a la hora de usar, no de programar), es usar las funciones FindFirst, FindNext y FindClose, que están bien detalladas en la ayuda de Delphi. Además dan la posibilidad de hacer filtros, especificar atributos de archivo y, si te lo curras, hasta buscar en subdirectorios (aunque eso último ya es más elaborado, pero si teneis paciencia, busco el código que hice una vez para tal propósito y lo coloco aquí). Y para guardar una lista con los archivos encontrados, pues usar un TStrings o TStringList.

Saludos a todos

[jam888]

ok, la proxima abrire otro hilo, volviendo al problema, el tema con el filelistbox es que no me deja enviar una cadena de cacteres(string) solo le puedo enviar un letra(char) (drive)y lo que yo necesito es que un cliente vea los archivos de una carpeta determinada y no vea nada mas de lo que hay en el disco.
Probe con open dialog, le puedo enviar una cadena de destino, hasta ahi ok, pero el cliente puede navegar por el disco y eso no le esta permitido hacer.
gracias por las respuestas.

Un Abrazo.