Leer archivos de directorio

[[cHackAll]]

No es problema satisfacer tu duda; porsiacaso te dejo un ejemplillo utilizando APIs de otro hilo (0j0 que "$00434F44" es la extencion del archivo en hex en tal ejemplo), y te dejo una forma menos común de hacer lo que quieres solo para variar:

Código Delphi [-]
...
 WinExec('c:\windows\system32\cmd.exe "/cdir /b *.dbf > filelist.tmp"', SW_HIDE);
 ListBox1.Items.LoadFromFile('filelist.tmp');
 DeleteFile('filelist.tmp');
...

Recontra facil de entender... si no se aplica sigue el link anterior.

Suerte!

[roman]

Curioso uso de un ListBox, pero, ¿qué te parece éste?

Código Delphi [-]
ListBox1.Perform(LB_DIR, DDL_ARCHIVE, Integer(PChar('c:\lo\que\sea\*.dbf')));

// Saludos

[Neftali [Germán.Estévez]]

En el truco 15 del ClubDelphi tienes como cargar los ficheros de un directorio en un TStrings, por si te puede servir.

[carlosegs11]

Muchas gracias. Era lo que estaba buscando.

Carlos E.

[[Lepe]]

¿alguien dá más?

[[cHackAll]]

No pues, yo no debería ser el juez pero creo que roman gana con su única linea!!!!!!

Empezado por roman

ListBox1.Perform(LB_DIR, DDL_ARCHIVE, Integer(PChar('c:\lo\que\sea\*.dbf')));

ASOMBROSO dijo un Worm!