PROCEDURE CheckFileIsInUse LPARAMETER tcDBName LOCAL lcCurDB, laTables[1], lnTableNum, lnCount, lcONERROR, llInUse PRIVATE llError lcCurDb = DBC() lcONERROR = ON("ERROR") llError = .F. ON ERROR llError = .T. SET DATABASE TO (tcDBName) lnTableNum = ADBOBJECTS(laTables, "Table") FOR lnCount = 1 TO lnTableNum llError = .F. USE (laTables[lnCount]) EXCLUSIVE ALIAS tmpCheckTable IN 0 llInUse = llError USE IN SELECT("tmpCheckTable") IF llInUse EXIT ENDIF ENDFOR SET DATABASE TO (lcCurDB) ON ERROR &lcONERROR RELEASE llError RETURN llInUse ENDPROCPlease advise