Hi marvin
I have a function that handles that you could try this:
FUNCTION EXCL_USED
LPARAMETERS file_name
temp_handle=FOPEN(file_name+'.dbf',2)
DO CASE
CASE temp_handle=-1
RETURN .F.
OTHERWISE
FCLOSE(temp_handle)
RETURN .T.
ENDCASE
hth
What is Wisdom?
Wisdom - The ability to respond to any situation according to God's Plan.
Therefore:
USE Wisdom IN Everything ORDER priority AS Knowledge
SELECT Knowledge
BROWSE FOR Understanding WHERE Wisdom=Guide
LeRoy Jackson