Function noexclusiveaccess Global Returns Integer Integer iFileError iFilenum iCheckok String sRootname Move 0 to iFilenum //Start at top of current filelist Move 0 to iFileError Send ignore_all to error_info_object //No openingerrors or whatever error while the test is being performed. Repeat Move 0 to iCheckOk Get_Attribute DF_FILE_NEXT_USED of iFilenum to iFilenum If iFilenum Begin Get_Attribute DF_FILE_ROOT_NAME of iFilenum to sRootname If (Trim(sRootname) <> "FLEXERRS") Begin Open iFilenum Mode DF_SHARE //Is the file present? If (not(Found)) Move 2 to iFileError Close iFilenum If (not(iFileError)) Begin Open iFilenum Mode DF_EXCLUSIVE If (not(Found)) Move 1 to iFileError //Opening the file was not succesfull Close iFilenum End End End Until ((iFilenum = 0) or (iFileError)) Send trap_all to error_info_object //Allow errors again. Function_Return iFileError End_Function