删除N天之前的备份-叶海峰
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


删除N天之前的备份

发表时间:2012/5/14 9:02:52 评论(4) 浏览(3547)  评论 | 加入收藏 | 复制
   
摘 要:删除N天之前的备份代码
正 文:
Function ShowFolderList(folderspec, d)  '删除N天之前的备份
Dim a As Boolean
Dim fso, f, f1, fc, s, dt
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
    dt = f1.DateCreated    '建日期和时间
    'dt = f1.DateLastAccessed '上次访问日期和时间
    'dt = f1.DateLastModified '上次修改日期和时间
    If DateDiff("d", dt, Now) > d Then
        s = s & f1.name & vbTab & dt & vbCrLf
        f1.Delete
    End If
Next
ShowFolderList = "下列文件被删除了( " & Now & "): " & vbCrLf & s
Set fso = Nothing
End Function

Access软件网交流QQ群(群号:198465573)
 
 相关文章
数据库备份自动打包  【huangjing  2012/2/22】
自动备份定量的备份文件  【jia  2012/5/7】
Copy备份文件代码  【叶海峰   2012/5/9】
SQL异机备份\SQL Server2000异机备份  【转载(风行)  2012/8/25】
差异备份、增量备份、完全备份的区别  【Adolph Sun  2012/11/25】
 
 访客评论
2018/9/2hi老大
将代码复制粘贴成模块, 然后在需要调用的地方 call ShowFolderList(folderspec, d) 其中folderspec为要检查的路径 d为天数

2014/2/8叶海峰
这段代码是一个函数,你把它放在一个模块里面,然后在你需要的地方调用函数就可以了

2014/2/8仙来
这段代码写在什么地方

2012/6/28johngo
直接在按钮那加进去吗?

总记录:4篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

叶海峰

文章分类

文章存档

友情链接