Como Verifico Que Dbf's Estan En Un Directorio

12/08/2004 - 20:16 por Leonardo Cadena | Informe spam
Hola A Todos ...

Amigos como Hago una consulta, o una rutina que me diga
que tablas tengo en un directorio y me las mande a un
archivo.dbf O que archivos Hay en X directorio's..

Les Agradeceria mucho...
Gracias Totales
 

Leer las respuestas

#1 renan gustavo cherre ordoñez
12/08/2004 - 21:40 | Informe spam
Buenas tardes.
prueba con este codigo:


** Este codigo te permite grabar en una tabla el contenido
** de los archivos de un determinado directorio.

wunific = "C:\TUDIRECTORIO\ARCHIVOS.*"
wadir = adir(mdir,wunific)
wArcTra = sys(3)+'.dbf'
create table &wArcTra ( archivo c(12), num c(10), fecha c
(12), hora c(12), atributo c(12))
for i = 1 to wadir
sele wArcTra
append blank
replace Archivo with mdir(i,1),;
num with str(mdir(i,2)),;
fecha with dtoc(mdir(i,3)),;
hora with mdir(i,4),;
atributo with mdir(i,5)
endfor
sele wArcTra
go top
brow nomo normal

Preguntas similares