*** início do código set defa to c:\elasoft\dados open database dbfact shared open database ftbasic\dbfact shared set database to dbfact *!* How Many Tables are in the DBC lnTableCount = ADBOBJECTS(aTableNames, [TABLE]) FOR lnCounter = 1 TO lnTableCount SET DATABASE TO ftbasic\dbfact IF INDBC( aTableNames[lnCounter] , 'TABLE') SET DATABASE TO dbfact use (aTableNames[lnCounter]) IN 0 lcAppender = "ftbasic\dbfact!" + aTableNames[lnCounter] append from &lcAppender ENDIF NEXT lnCounter