>The best method is to do what Garret has suggested. You can make a function that does this for you. Something like this:
>
>>lcOldError = on("error")
>llOpenError = .f.
>on error llOpenError = .t.
>use table1.dbf exclusive in 0
>on error &lcOldError
>if !llOpenError
> * we opened the file exclusively
>else
> * could not exclusively open file
>endif
>Or, also as Garret suggested, for VFP8, something along these lines:
TRY
USE HOME(2) + "data\customer" IN 0 EXCLUSIVE
CATCH TO OERR
MESSAGEBOX(TRANSFORM(OERR.MESSAGE) + CHR(13) + ;
"LINE #:" + TRANSFORM(OERR.LINENO) + CHR(13) + ;
"LINE:" + TRANSFORM(OERR.LINECONTENTS), ;
16, "ERROR IN " + TRANSFORM(OERR.PROCEDURE))
FINALLY
ENDTRY
