下面的代码放在计划中,即可定时备份,不怕系统死机,最小间隔可谓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:\按时备份\ 这个路径是您要重新备份的路径,您自己来设置;
原理:执行备份命令后再将备份即时按照当前时间保存为新的文件,相信大家都看得懂。
[此贴子已经被作者于2012-9-3 19:10:42编辑过]