- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自动备份项目 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33607)
-- 发布时间：2013/5/21 15:32:00
-- [求助]自动备份项目
狐表自带的备份功能 假如设置每天备份 可是 时间长了 备份的压缩包 很多 会占硬盘空间 能否 自动删除 比如说 10天之前的备份 这样的功能
-- 发布时间：2013/5/21 15:36:00
--
自己使用代码打包备份文件,文件名称使用日期. 然后备份的同时判断一下该文件夹下的所有压缩包,看是否有超过10天前的压缩包,有就删除.
刚突然想到,狐表现在也提供了一个简便获得文件信息的函数,这样连文件名都不用纠结,直接判断该文件的生成修改时间即可.
-- 发布时间：2013/5/21 15:38:00
--
那个该怎么写呢 我是新手 不太明白 那个打包 我看了 可是 怎么去写呢
-- 发布时间：2013/5/21 15:40:00
--
新手建议看三遍以上的帮助,欲速则不达,事倍功半,反而浪费您更多宝贵的时间!
-- 发布时间：2013/5/21 17:57:00
--
如今硬盘空间够大，根本无需考虑这个问题。
偶尔手工删除一下老的备份文件就行。
如果要自动化，在BeforeCloseProjct事件中设置代码：
Syscmd.Project.Backup("c:\\data",True)
For Each f As String In filesys.GetFiles("c:\\data")
Dim Info As New FileInfo(f)
If Info.CreationTime.AddDays(10) < Date.Today Then
filesys.DeleteFile(f)
End If
Next
这样每次退出前，就会自动备份，并删除10天前的备份。