主题：狐爸能否改进下

 代码不错，收藏备用。

Dim code As String = "d:\数据备份\code.mdb" '这时您的备份路径
If Filesys.FileExists(code) Then '判断备份文件是否存在
    '…………下一行代码将备份的code文件复制到开发版安装目录,并覆盖安装目录下的code
    Filesys.CopyFile(code,"d:\Program Files\foxtable\开发版\code.mb" ,True)
    '…………下一行代码将备份的code文件复制到商业版安装目录,并覆盖安装目录下的code
    Filesys.CopyFile(code,"d:\Program Files\foxtable\商业版\code.mb" ,True)
End If

 

BeforeCloseProject

Dim code As String = "d:\数据备份\code.mdb" '这时您的备份路径
If Filesys.FileExists("d:\Program Files\foxtable\商业版\code.mb") Then '判断foxtable安装文件路径是否正确
    '…………关闭项目前自动备份code文件,,并覆盖已有的备份,'如果您的项目文件为开发版,这里改为开发版路
    '径,修改code也应该修改开发版安装目录的code,反之,应为商业版路径,也应该修改foxtable商业版安装目录的code
    Filesys.CopyFile("d:\Program Files\foxtable\商业版\code.mb",code,True)
else

    e.Cancel = True '如果确认路径正确,这一行代码可以不要
End If