Foxtable(狐表)用户栏目专家坐堂 → [求助]自动备份项目


  共有6356人关注过本帖树形打印复制链接

主题:[求助]自动备份项目

帅哥哟,离线,有人找我吗?
风儿乖乖
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:105 威望:0 精华:0 注册:2013/5/21 11:46:00
[求助]自动备份项目  发帖心情 Post By:2013/5/21 15:32:00 [只看该作者]

狐表自带的备份功能 假如设置每天备份 可是 时间长了 备份的压缩包 很多 会占硬盘空间  能否 自动删除 比如说 10天之前的备份 这样的功能

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/21 15:36:00 [只看该作者]

自己使用代码打包备份文件,文件名称使用日期.  然后备份的同时判断一下该文件夹下的所有压缩包,看是否有超过10天前的压缩包,有就删除.

刚突然想到,狐表现在也提供了一个简便获得文件信息的函数,这样连文件名都不用纠结,直接判断该文件的生成修改时间即可.

 回到顶部
帅哥哟,离线,有人找我吗?
风儿乖乖
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:105 威望:0 精华:0 注册:2013/5/21 11:46:00
  发帖心情 Post By:2013/5/21 15:38:00 [只看该作者]

图片点击可在新窗口打开查看那个该怎么写呢  我是新手 不太明白 那个打包 我看了 可是 怎么去写呢

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/21 15:40:00 [只看该作者]

新手建议看三遍以上的帮助,欲速则不达,事倍功半,反而浪费您更多宝贵的时间!



 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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天前的备份。

 回到顶部