Leer archivos de directorio

[carlosegs11]

Hola Amigos,

Yo se que esta pregunta no es nueva... espero me disculpen.

En el Directorio "Temp" tengo 400 tablas .dbf

Deseo Leer los nombres de estas tablas (o sea los archivos que se encuentran en el directorio) y poderlos cargar en una tabla.

Como lo puedo hacer de una forma sencilla?

Gracias.

Carlos E. :confused:

[cHackAll]

No es problema satisfacer tu duda; porsiacaso te dejo un ejemplillo utilizando APIs de otro (http://www.clubdelphi.com/foros/showthread.php?t=44239) 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:


...
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?


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


:)

// Saludos

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

En el truco 15 (http://www.clubdelphi.com/trucos/index.php?id=15&scroll=0&scrollb=0) 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. :D

[Lepe]

¿alguien dá más? :D :D

[cHackAll]

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


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

:eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek:


ASOMBROSO dijo un Worm!