lcTable = "C:\VFP\MiTabla.DBF" IF _Exclusive(lcTable) USE (lcTable) EXCLUSIVE ELSE MESSAGEBOX(lcTable "is in use.") ENDIF
*-------------------------------------------------- * FUNCTION _Exclusive(tcTabla) *-------------------------------------------------- * Verifica si una tabla esta abierta en EXCLUSIVO * USO: _Exclusive("C:\VFP\MiTabla.DBF") * PARAMETRO: * tcTabla = Ruta completa del archivo .DBF * RETORNO: .T. si se puede abrir en exclusivo *-------------------------------------------------- FUNCTION _Exclusive(tcTabla) LOCAL lnHandle, llRet lnHandle = FOPEN(tcTabla) IF lnHandle = -1 llRet = .F. ELSE llRet = .T. =FCLOSE(lnHandle) ENDIF RETURN llRet ENDFUNC ---------------------------------------------------