close tables
yml=thisform.text1.value

mbml=thisform.text2.value

COPY FILEs &yml\*.dbf TO &mbml\*.dbf
COPY FILEs &yml\*.fpt TO &mbml\*.fpt
messagebox("数据备份完毕!","提示")

帮我看看这个程序有问题吗？

程序开头已经关闭所有的了，为什么连编后总出现错误提示？

把close tables放下试试

yml=allt(thisform.text1.value)
mbml=allt(thisform.text2.value)
close tables
COPY FILE &yml\*.dbf TO &mbml\*.dbf
COPY FILE &yml\*.fpt TO &mbml\*.fpt
messagebox("数据备份完毕!","提示")

是不是你的yml 和 mbml一样了？

或者是有的地方打开别的表儿了！

在不同区里打开的需要在不同区进行关闭！

不推荐使用 close tables

COPY FILEs &yml\*.dbf TO &mbml\*.dbf
COPY FILEs &yml\*.fpt TO &mbml\*.fpt
把以上两句改成以下两句试试，注意，变量后面加了一个“.”，表示宏替换结束。
COPY FILEs &yml.\*.dbf TO &mbml.\*.dbf
COPY FILEs &yml.\*.fpt TO &mbml.\*.fpt