文件名称：我编写的“数据备份”小程序有时出现问题？
文件大小：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