If File("C:\Temp\Tab1.dbf") Use Tab1 && Abra a nova tabela Use C:\Temp\Tab1 Alias TabTemp In 0 && Tabela antiga Append From TabTemp Use In TabTemp Use In Tab1 EndifOutra maneira e que talvez seja melhor de se fazer é utilizar a função Adir() e com isto pegar todas as tabelas antigas e depois através dela abrir as novas e aplicar o append from.
lnQtdArq = Adir(laArq, "C:\Temp\*.dbf") For I = 1 To lnQtdArq Use (laArq(1, 1)) Alias TabN && Abre a tabela nova lcTabVelha = "C:\Temp\" + laArq(1, 1) Use (lcTabVelha) Alias TabV In 0 Append From TabV Use In TabV Use In TabN EndifEspero que isto o ajude.