Foros Club Delphi - Leer archivos de directorio

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Leer archivos de directorio (https://www.clubdelphi.com/foros/showthread.php?t=44991)

carlosegs11

20-06-2007 01:58:43

Leer archivos de directorio

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

20-06-2007 05:12:54

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

20-06-2007 06:22:46

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]

20-06-2007 10:09:57

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

carlosegs11

20-06-2007 14:28:17

Muchas gracias. Era lo que estaba buscando.

Carlos E. :D

Lepe	20-06-2007 14:28:43

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

cHackAll

20-06-2007 20:34:50

Huuuu

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

Cita:

Empezado por roman

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!

La franja horaria es GMT +2. Ahora son las 02:04:40.