- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 想写一个自动备份项目的定时任务（一小时备份一个）。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23096)
-- 发布时间：2012/9/2 10:42:00
-- 想写一个自动备份项目的定时任务（一小时备份一个）。
foxtable可以自动备份项目，但是最高的频率都是1天一个备份，但这很不可靠，一天的工作量也不小
我想做一个每一个小时自动备份一次的指令，来保障项目的安全。该怎么写呢？
Syscmd.Project.Backup() 这个条指令好像不能给参数。
-- 发布时间：2012/9/2 11:41:00
--
ZipFile 看帮助的这一章
-- 发布时间：2012/9/2 13:38:00
--
顺便说一下 SQL数据源另外备份.ACCESS可以放在一起压缩的
-- 发布时间：2012/9/2 14:33:00
--
您就不能在计划执行中设置代码并指定间隔时间？
-- 发布时间：2012/9/2 17:42:00
--
您就不能在计划执行中设置代码并指定间隔时间？
时间当然可以指定，关键是要指定备份文件名。
如果没有指定文件名，他每小时备份一次，就会把前面备份的覆盖掉。
-- 发布时间：2012/9/3 0:18:00
--
那是您没动脑子，发文件，简单搞定！
-- 发布时间：2012/9/3 11:22:00
--
在文件后面加个当前时间嘛。
是这样的意思吗？ Syscmd.Project.Backup( now() )
-- 发布时间：2012/9/3 16:55:00
--
谢谢 原来 zip
-- 发布时间：2012/9/3 18:45:00
--
下面的代码放在计划中，即可定时备份，不怕系统死机，最小间隔可谓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:18:00
--
这样改进后可以悄无声息地备份，还可以避免用户修改文件名导致错误：
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 |