主题：狐爸能否改进下

昨天新版本发布 非常高兴 更新了下 悲剧了 收藏的许多代码被覆盖了

狐爸能否弄个提醒啥的 好让像我这样的马大哈有个心里准备

呵呵，这个这个，不好提醒啊。

以后用户增加代码，自动给你做个备份算了。

自动备份不错 或者能自己指定代码数据库保存路径也好

 

再提目录树管理code！！

          同志们的自定义代码库自动备份可以写在自己的项目中，关闭项目备份，打开项目复制回来覆盖foxtable的安装目录的code文件（包括商业版和开发版都同时覆盖，打开时，判断备份code文件是否存在，不存在直接备份，存在则将备份的code文件覆盖回来），始终都是您自己的备份，您也不必要再为这个问题而苦恼，这个问题我在别的帖子里就讲过了，代码非常简单。

是呀，这个问题我也常范呀，既然是普遍性问题。就要改进

自动备份不错.像我们这些菜鸟，根本不知道啊。

很简单的几行代码，还是给一个示例文件吧：

 

 

        

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动备份和更新code.rar

 

     有点小笔误，已经修正.mdb 后缀名，少了一个d，代码写成了.mb，最近几天键盘有点问题，D键点轻了总是没反应！

 代码不错，收藏备用。

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

  代码编辑器的窗口 有人做出来用目录树形式展现了  希望老大 也改一下!