*****这是form1的unload的代码：
CLOSE DATABASES all

nanswer=4+16+256
this.Visible= .F.
MESSAGEBOX('贝份文件吗？',nanswer,'系统提示')
DO CASE
      CASE=6
           
           COPY FILE d:\foxpro\2013zm\w2014zm.dbf to d:\w2014zm.dbf &&在命令窗口实行此命令，文件复制成功，而在程序中却不能复制成功
                CASE=7
         ENDCASE