Leer un archivo de una carpeta
Hola.
Tengo un problema.
FOXPRO 2.6 para DOS
Tengo un una carpeta c:\pepe\
1) Quiero saber cuantos archivos contiene esa carpeta.
2) Incorporar en un DBF el nombre de cada archivo.
Como se hace...
A la espera de alguna respuesta.
Saludo atentamente.
Raul
Tengo un problema.
FOXPRO 2.6 para DOS
Tengo un una carpeta c:\pepe\
1) Quiero saber cuantos archivos contiene esa carpeta.
2) Incorporar en un DBF el nombre de cada archivo.
Como se hace...
A la espera de alguna respuesta.
Saludo atentamente.
Raul
Respuesta de Víctor Arturo Mercado Fernández
1
Puedes utilizar la función ADIR() de forma similar a:
DIMENSION aCarpeta(1)
nNumero = ADIR( aCarpeta, "C:\Ruta\*.*" )
SELECT MiCarpeta
FOR nContador = 1 TO nNumero
APPEND BLANK
REPLACE MiCarpeta.archivo WITH aCarpeta[nContador,1]
NEXT
«NNumero» es el número de archivos en la carpeta «C:\Ruta»
En el campo «archivo» de la tabla «MiCarpeta» se incorporarán los nombres.
Bueno, eso digo yo...
DIMENSION aCarpeta(1)
nNumero = ADIR( aCarpeta, "C:\Ruta\*.*" )
SELECT MiCarpeta
FOR nContador = 1 TO nNumero
APPEND BLANK
REPLACE MiCarpeta.archivo WITH aCarpeta[nContador,1]
NEXT
«NNumero» es el número de archivos en la carpeta «C:\Ruta»
En el campo «archivo» de la tabla «MiCarpeta» se incorporarán los nombres.
Bueno, eso digo yo...
