ADIR() en directorio extenso

Si solo te interesa el nombre del archivo, puedes utilizar SYS(2000)

Ej:
lc = SYS(2000,"c:\*.txt")
DO WHILE NOT EMPTY(lc)
? lc
lc = SYS(2000,"c:\*.txt",1)
ENDDO

Luis María Guayán
Vicente Trapani S.A.
Tucumán, Argentina
_____________________________________________
Microsoft Visual FoxPro MVP
SysOp de PortalFox - http://www.portalfox.com
_____________________________________________
Proteje al zorro, úsalo legalmente


"Esparta Palma" wrote in message
news:

En UT hay un archivo FileID #10070 que aparentemente tiene resuelta tu
duda.

http://www.universalthread.com/wcon...sformation~2,54,33,10070

La otra es utilizar un cursor y las funciones API sobre archivos (creo
es FindFirst), dejame revisar si tengo algo al respecto, o quizás otro
compañero pueda ayudar. Lo que si es definitivo es que ninguna versión
de FoxPro o Visual FoxPro podrás extender el arreglo a mas de 65,000
elementos (hasta la versión 8, nop).


Apoya a Visual FoxPro usándolo legalmente
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


JMA wrote:

> Hola:
>
> Tengo problemas al hacer un ADIR en un directorio con 20.000 ficheros.
>
> Entiendo que es por el tamaño maximo de un array que creo que es de
> 65.000,
> y lo que haria falta seria 20.000 x 50.000 por lo menos
> ya que por cada fichero guarda en el array 5 datos (nombre,
> tamaño,fecha,
> )
>
> Es esto posible?
> a) ampliar el tamaño del array.
> o
> b) enviar el resultado del ADIR a un cursor por ejemplo.
>
> Un saludo,
> Jose M.Ansola
>
>

Hola Esparta:

Me habia precipitado en la anterior respuesta, guiandome con lo que decia
Luis Maria Guayan, pero con el link que me has pasado, lo he revisado y es
"perfecto" para lo que necesito.

No necesito hacer muchos retoques al programa que he adjuntado en el
anterior post.

Un saludo y gracias,

Jose M.Ansola

PD: La utilidad del programa VerExtensiones.PRG es mayor de lo que parece
pues me deja en un cursor, acumulados por extension, el numero de ficheros,
asi como los bytes acumulados (de forma recursiva). Con ello podemos
analizar facilmente el uso dado a la ocupacion en disco sin acceder a
herramientas de terceros.

"Esparta Palma" escribió en el
mensaje news:

En UT hay un archivo FileID #10070 que aparentemente tiene resuelta tu

duda.

http://www.universalthread.com/wcon...sformation~2,54,3
3,10070

La otra es utilizar un cursor y las funciones API sobre archivos (creo
es FindFirst), dejame revisar si tengo algo al respecto, o quizás otro
compañero pueda ayudar. Lo que si es definitivo es que ninguna versión
de FoxPro o Visual FoxPro podrás extender el arreglo a mas de 65,000
elementos (hasta la versión 8, nop).


Apoya a Visual FoxPro usándolo legalmente
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


JMA wrote:

> Hola:
>
> Tengo problemas al hacer un ADIR en un directorio con 20.000 ficheros.
>
> Entiendo que es por el tamaño maximo de un array que creo que es de

65.000,

> y lo que haria falta seria 20.000 x 50.000 por lo menos
> ya que por cada fichero guarda en el array 5 datos (nombre,

tamaño,fecha,

> )
>
> Es esto posible?
> a) ampliar el tamaño del array.
> o
> b) enviar el resultado del ADIR a un cursor por ejemplo.
>
> Un saludo,
> Jose M.Ansola
>
>