以下是我吸取了别人经验后加以修改而成的代码,不知能否对你有所帮助。
SET TALK Off
SET SAFE OFF
clear all
yy=MESSAGEBOX("你是否符合下列要求吗?"+chr(13)+"在D盘下新建一个要存放合并数据库目录.然后把要合并的[相同结构的数据库]放在此目录中!",4+48+0,'注意以下的提醒!')
IF yy=6
cdir=GETDIR("d:","请选择要合并相同数据库的目录")
*CD (cdir)
&&进入相应的目录
cdir=left(cdir,len(cdir)-1)
cd (cdir)
delete file todata.dbf
lnFiles=Adir(aFile,"*.dbf")
use aFile(1,1)
copy Structure To todata
use todata
for lnI=1 To lnFiles
lcStr=(aFile(lnI,1))
Append From '&lcStr.'
endfor
browse
=MESSAGEBOX("合并完毕!,生成名为:TOTDATA数据库",0+48,"提醒:合并完毕")
else
retu
endif
set talk on
SET SAFE ON