copy  file C:\Documents and Settings\Administrator\桌面\学生成绩查询系统\*.dbf to C:\Documents and Settings\Administrator\桌面\学生成绩查询系统\备份\*.dbf

程序代码：

messagebox("数据要备份到“ c:\***\学生成绩查询系统\备份”文件夹,恢复时直接复制回 c:\***\学生成绩查询系统 中即可",64 ,"提示")
a1=messagebox("只备份表文件、数据库文件等数据文件",3+32,"提示")

 if  a1=6
   clear
   close all
   copy  file "C:\Documents and Settings\Administrator\桌面\学生成绩查询系统\*.dbf" to "C:\Documents and Settings\Administrator\桌面\学生成绩查询系统\备份\*.dbf"
    messagebox("备份已经完成,会自动关闭软件，请重新启动！",64,"特别提示") 

 endif