Replace ALL this with these two linesuse ftap exclusive
zap
Actually, it requires a little more code. We need to add some error trapping because if the file is already open in another data session, she will not be able to get exclusive use of it:
LOCAL lcOldOnError, llError
llError = .F.
lcOldOnError = ON( [ERROR] )
ON ERROR llError = .T.
use ftap exclusive IN 0
IF llError
MESSAGEBOX( [Unable to get exclusive use], 16 )
ELSE
ZAP IN fTap
ENDIF
IF NOT EMPTY( lcOldOnError )
ON ERROR &lcOldOnError
ELSE
ON ERROR
ENDIF
RETURN ( NOT llError )
