Como Verifico Que Dbf's Estan En Un Directorio

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

OK gustabo probe tu codigo...
me funciona para un directorio y si este directorio tiene
subdirectorios... y asi sucesivamete ... Como Hag.. ??

La idea es saber apartir de un directorio y sus
subdirectorios... saber que archivos pueden haber..


Auxilio ayudaaaaaa

On Thu, 12 Aug 2004 13:10:31 -0700, "Leonardo Cadena"
wrote:

OK gustabo probe tu codigo...
me funciona para un directorio y si este directorio tiene
subdirectorios... y asi sucesivamete ... Como Hag.. ??

La idea es saber apartir de un directorio y sus
subdirectorios... saber que archivos pueden haber..

Ver:

Adir()
http://fox.wikis.com/wc.dll?Wiki~RecursiveDirectoryProcessing

WSH (ejemplo de Ed Rauh)
http://fox.wikis.com/wc.dll?Wiki~WindowsScriptingHost



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)

ADIR() Coleccionable

http://www.portalfox.com/modules.ph...le&sid„8

"Leonardo Cadena" escribió en el
mensaje news:4e0d01c48098$786c6310$

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