lcFilePath = GETDIR() IF !EMPTY(lcFilePath) lcFilePath = ADDBS(lcFilePath) lnFileCnt = ADIR(laFiles,lcFilePath+"*.scx") FOR lnFile=1 TO lnFileCnt lcFile = lcFilePath + laFiles[lnFile,1] lhFile = FOPEN(lcFile,0) IF lhFile > 0 =FCLOSE(lhFile) USE (lcFile) IN 0 ALIAS my_scx ELSE WAIT WINDOW "File in Use: " + lcFile ENDIF ENDFOR ENDIFThe FOPEN command will not throw an exception if it cannot open the file -- the file handle returned of 0 indicates failure. Whereas, USE will cause an error.