Archivo en ejecución ó abierto

Hola Edward:

Aquí te dejo un código de ejemplo para validar todas las tablas de un
directorio, si sabes la tabla que quieres validar, solo preguntas por ella y
te olvidas del ciclo.

* verificar DBF abiertas
lnCantiTabla = ADIR(laTabla, tcDirectorio + '*.dbf')

FOR i = 1 TO lnCantiTabla
lnAbreTabla = FOPEN(tcDirectorio + laTabla[i,1])
IF lnAbreTabla = -1
* Mensaje de error "La Tabla " + tcDirectorio + laTabla[i,1] +"
en uso por otro usuario."
EXIT
ELSE
FCLOSE(lnAbreTabla)
ENDIF
NEXT i

Para saber si está en uso, mira el comando USED()


Saludos,

Ana
www.amby.net
"Edward" escribió en el mensaje
news:uEHE$

Saludos amigos,

Estoy trabajando con VFP7.0 y necesito eliminar una archivo (Esto lo hago
con DELETE FILE y todo bien), pero el problema es si el archivo que voy a
eliminar del disco duro, otra persona en la red lo tiene abierto ó esta
trabajando en él. ¿Como me puedo dar cuenta que nadie en la red esta
trabajando con él?...para que no me salga el error de acceso denegado.

Agradezco mucho su ayuda.
Edward


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway