Pessoal , preciso correr o seguinte código , porém não funciona .
Desconfio que o problema esteja por os dois bancos de dados terem o mesmo nome , apesar de estarem em pastas diferentes .
Alguma sugestão ?

Muito obrigado
Pedro Silva

*** 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