Obtener la lista de archivos de un directorio.

[Gabriel Sandoval]

Hola buen dia a todos, mi duda es esta, ¿Como podría obtener la lista
de archivos de un directorio determinado, y poder almacenarla en un
arreglo? Desde ya muchas gracias.

[Yvan GMAIL]

ADIR

Ejemplo del help de VFP

CLOSE DATABASES
SET DEFAULT TO (HOME(2) + 'Data')

gnDbcnumber = ADIR(gaDatabase, '*.DBC') && Create array

CLEAR
FOR nCount = 1 TO gnDbcnumber && Loop for number of databases
? gaDatabase(nCount,1) && Display database names
ENDFOR
SET PATH TO HOME( ) && Set path to Visual FoxPro directory

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Gabriel Sandoval
Enviado el: Viernes, 05 de Noviembre de 2010 02:45 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Obtener la lista de archivos de un directorio.

[Walter R. Ojeda Valiente]

Usa la función ADIR()

Por ejemplo:

lnNumArchivos = ADIR(Vec1, "*.PRG")

En la variable "lnNumArchivos" tendrás la cantidad total de archivos que cumplen la condición, los datos de cada uno de ellos los tendrás en el vector "Vec1".

Como hay cinco datos por cada archivo, los datos de cada archivo ocupan cinco elementos del vector. Si quieres ver los nombres de los archivos, tendrás que usar:
Vec1[1]
Vec1[6]
Vec1[11]

y así sucesivamente. Por ejemplo:

For lnI = 1 to lnNumArchivos
    ? Vec1[(lnI - 1) * 5 + 1]
Next lnI

Saludos.

Walter.

[Luis Maria Guayan]

-- Una funcion ADIR() Extendida que devuelve los nombres de los archivos con la ruta completa --
http://www.portalfox.com/index.php?name=News&file=article&sid=85


-- Cómo buscar el nombre de todos los archivos de un directorio y sus subdirectorio --
http://www.portalfox.com/index.php?name=News&file=article&sid=58

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________