【文件属性】：
文件名称：我编写的“数据备份”小程序有时出现问题？
文件大小：743B
文件格式：PRG
更新时间：2012-05-30 05:16:56
VFP 编程
* 以下这段程序，在连编时，出现找不到“BB”，
* 请高手指点指点！先谢谢啦！
***********************
**** 数据备份
***********************
PUBLIC BB,DD
SET safety off && 覆盖文件存盘不提示
CLOSE TABLES ALL && 关闭所有表
BB = messagebox('现在就要进行数据备份吗？ ',4+32+256,'提示信息')
if BB = 6
if not DIRECTORY(sys(5)+sys(2003)+"\备份")
wait window "正在备份数据......." nowait at mrow(),mcol()-6
mkdir 备份
COPY FILE data\*.* to 备份\*.*
messagebox('数据备份已经完成！ ',48,'提示信息')
else
DD = messagebox('备份目录已经存在，覆盖它吗？ ',4+32+256,'提示信息')
if DD = 6
wait window "正在覆盖备份数据......." nowait at mrow(),mcol()-6
COPY FILE data\*.* to 备份\*.*
messagebox('你的备份数据已经是最新的了！ ',48,'提示信息')
endif
endif
endif