SET TALK OFF oChangeDataPath = CREATEOBJECT('datafolder') oForm = THISFORM oChangeDataPath.curfolder(oForm) RELEASE oChangeDataPath RELEASE oFormMy "datafolder" class has a method called .curfolder which looks like this:
PARA oFormcalled * This class resets the paths of tables in the data environment * to CURDIR() IF PARAMETERS() = 0 RETURN ENDIF IF TYPE("oFormcalled.DataEnvironment") = "O" oEnviron = oFormcalled.DataEnvironment ELSE RETURN ENDIF IF TYPE("oEnviron") = "O" nTotMem = AMEMBERS(aMems,oEnviron,2) WITH oEnviron IF .AutoOpenTables = .F. * Check for cursors FOR i = 1 TO m.nTotMem IF UPPER(EVAL("."+aMems[m.i]+".BaseClass")) = "CURSOR" WITH EVAL("."+aMems[m.i]) STORE .Database TO cDB cDB = SUBSTR(cDB,RAT('\',cDB)+1) .Database = SUBSTR(FULLPATH(cDB),1,RAT('\',FULLPATH(cDB)))+cDB ENDWITH ENDIF ENDFOR .OpenTables() ENDIF ENDWITH ENDIF RELEASE oEnvironI tried a WAIT WINDOW in the .Load just before the code that instantiates the class, but the error occurs before it hits the .Load code.