NECESITO RUTINA PARA LEER UNA UNIDAD (C: O D: ) Y BUSCAR TODOS LOS *.DBF , COMO PUEDO HACE
pEPE
25 de Noviembre del 2003
PARA ESCANEAR UNA UNIDAD EN BUSCA DE ARCHIVOS, PLEASE ALGUIEN ME AYUDE
Alex
25 de Noviembre del 2003
Quetal Pepe
Esto podria servirte, probalo.
cPath ='C:\'
cArchivo = '*.DBF'
gnDbcnumber = ADIR(gaDatabase, cPath+cArchivo) && Crea un array con los archivos encontrados
CREATE CURSOR CurTemp(cnombre c(30)) && Crea un cursor temporal
FOR nCount = 1 TO gnDbcnumber && Hace un Loop según el numero de archivos encontados
INSERT INTO CurTemp(cNombre) VALUES (gaDatabase(nCount,1)) && Inserta en el cursor el nombre de los archivos encontrados
ENDFOR
IF EOF('CurTemp')
=MESSAGEBOX('No se encontraron archivos coincidentes')
Else
BROWSE
EndIf
Alex Vargas
Esto podria servirte, probalo.
cPath ='C:\'
cArchivo = '*.DBF'
gnDbcnumber = ADIR(gaDatabase, cPath+cArchivo) && Crea un array con los archivos encontrados
CREATE CURSOR CurTemp(cnombre c(30)) && Crea un cursor temporal
FOR nCount = 1 TO gnDbcnumber && Hace un Loop según el numero de archivos encontados
INSERT INTO CurTemp(cNombre) VALUES (gaDatabase(nCount,1)) && Inserta en el cursor el nombre de los archivos encontrados
ENDFOR
IF EOF('CurTemp')
=MESSAGEBOX('No se encontraron archivos coincidentes')
Else
BROWSE
EndIf
Alex Vargas