主题：想写一个自动备份项目的定时任务（一小时备份一个）。

下面的代码放在计划中，即可定时备份，不怕系统死机，最小间隔可谓1%秒，建议至少5分钟以上间隔：

 

Syscmd.Project.Backup() 

FileSys.CopyFile("备份路径\项目名称_" & format(date.today.month,"00") &  format(date.today.Day,"00") & ".zip","f:\按时备份\管理项目2_" & Date.Today.year & format(Date.Today.month,"00") & format(Date.Today.day,"00") & Format(Date.now,"T").Replace(":","") & ".zip")

 

 

说明：

    1、备份路径\项目名称      这里的备份路径是您所设置的路径，项目名称是您的项目的名称；

    2、f:\按时备份\           这个路径是您要重新备份的路径，您自己来设置；

    原理：执行备份命令后再将备份即时按照当前时间保存为新的文件，相信大家都看得懂。

这样改进后可以悄无声息地备份，还可以避免用户修改文件名导致错误：

 

Syscmd.Project.Backup(True)
FileSys.CopyFile("d:\管理项目2_" & format(Date.today.month,"00") &  format(Date.today.Day,"00") & ".zip","f:\按时备份\管理项目2_" & Date.Today.year & format(Date.Today.month,"00") & format(Date.Today.day,"00") & Format(Date.now,"T").Replace(":","") & ".zip")
FileSys.DeleteFile("d:\管理项目2_" & format(Date.today.month,"00") &  format(Date.today.Day,"00") & ".zip")

 

下面是示例文件：

 

 

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

点击浏览该文件:管理项目2.table

为了避免每一天的最后一秒备份可能会出现的问题（这个问题只能是中500万大奖的朋友才能赶得上），再优化一下就是这样：

 

Dim n As Date = Date.now
Syscmd.Project.Backup(True)
FileSys.CopyFile("d:\管理项目2_" & format(n.month,"00") &  format(n.Day,"00") & ".zip","f:\按时备份\管理项目2_" & n.year & format(n.month,"00") & format(n.day,"00") & Format(n,"T").Replace(":","") & ".zip")
FileSys.DeleteFile("d:\管理项目2_" & format(n.month,"00") &  format(n.Day,"00") & ".zip")

这是设置为间隔1分钟备份的项目文件：

 

 

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

点击浏览该文件:管理项目2.table

不知道为什么，老显示备份不了，总显示代码有误，图见附件

此主题相关图片如下：a.jpg

 把路径替换成自己的，便可。

 FileSys.CopyFile("d:\管理项目2_" & format(n.month,"00") &  format(n.Day,"00") & ".zip","f:\按时备份\管理项目2_" & n.year & format(n.month,"00") & format(n.day,"00") & Format(n,"T").Replace(":","") & ".zip")
 FileSys.DeleteFile("d:\管理项目2_" & format(n.month,"00") &  format(n.Day,"00") & ".zip")

路径替换了也不行呀，升级前可以用的，升到11.28后就备不了啦，还不停的在备份目录下生成True的文件夹

升级后用系统自帶的命令，这个已经用不着了！

哦，谢谢！

如果要备份到局域网的另一台计算机上

 Syscmd.Project.Backup("\\计算机名\A\备份", True) ，不行

要如何修改呢？