FoxPro/Visual FoxPro - Ayuda con la funcion ADIR ................

Hola amigos:
Intento rellenar una tabla con nombres de archivos y para ello tengo
el siguiente código pero no me funciona.... solo me lo hace bien la primera vez (n=1)......cuando el valor es 2 me pone la fecha del primer archivo encontrado, cuando el valor es 3 la hora .... etc.
¿Porque la función no me pone los demas archivos?

sele MiBase
for n=1 to adir(fich,'DA*.DBF')
Nbase=fich[n]
appe blan
repl Name with NBase
next

Gracias..

Hola amigo

Adir crea una matriz de n filas y 5 colunas (nombre archivo, tamaño,...)
en tu codigo estas haciendo referencia a los lementos de la matriz y no a un subindice. Te explico:
*--Creao una matriz de 2 filas y 3 columnas en total 6 elementos

Dimension arreglo(2,2)
arreglo(1,1) = \"elemento 1,1\"
arreglo(1,2) = \"elemento 1,2\"
arreglo(2,1) = \"elemento 2,1\"
arreglo(2,2) = \"elemento 2,2\"
*--Si hago refrencia al elemento 2 que obtengo?
? arreglo(2) = \"elemento 2,1\" pues no! ...obtengo \"elemento 1,2\"

*--Si hago refrencia al elemento 6 que obtengo?
? arreglo(6) = \"elemento 2,2\" &&correcto!

Entosces lo que debes es hacer en tu codigo es

Nbase=fich[n,1] &&Nombre archivo

Nbase=fich[n,2]] &&Tamño archivo

Recuerda Fila, columna... Suerte