=thisform.mytables.opening()
that cross for all tables declared on dataenvironment..procedure thisform.mytables.opening lcpath_of_mytables = ".." oform = iif(type("thisformset.DataEnvironment")<>"U", thisformset, thisform) lnind1 = 1 Do WHILE lnKeepsearch lsind = ALLTRIM(STR(lnind1,3,0)) If type("oform.DataEnvironment.Cursor&lsind")="U" lnKeepsearch = .f. Loop Endif O = oform.DataEnvironment.Cursor&ind2 If TYPE("O")<>"U" lcFILE = allt(O.cursorsource) lcFILE = FORCEPATH(justfname(lcFILE), lcpath_of_mytables) lcalias = allt(O.alias) If type("lcalias")="C" If empty(lcalias) lcalias = juststem(lcFILE) Endif Endif If USED(lcalias) Else sele 0 If O.exclusive Sele 0 Use (WFILE) alias (walias) exclusive Else Sele 0 Use (WFILE) again alias (walias) shared Endif endif endif * enddo endprocFrom this point you can create a INI file to set the desired places for your free tables on lcpath_of_mytables variable..