Office中国论坛/Access中国论坛

标题: 【help】纯粹的复制型备份 [打印本页]
作者: 三毛流浪记    时间: 2015-3-7 18:55
标题: 【help】纯粹的复制型备份
纯粹的复制型备份，导致文件越来越多，该怎么让其自动保留最新的几份备份而删除较早的备份呢？请各位老师指教！感谢！
作者: 三毛流浪记    时间: 2015-3-7 19:00
点击树控件出现如图错误该如何解决？
作者: roych    时间: 2015-3-9 10:56
新建一个模块，把这段代码复制进去，然后在copyfile之前执行。
  1. Sub delFile()
  2. '引用scripting runntime库
  3. Dim fso As New FileSystemObject
  4. Dim fl As File
  5. For Each fl In fso.GetFolder("C:\我的备份").Files
  6. '以最后更改时间（DateLastModified ）为准。如以创建时间（DateCreated）为准，当天从别处复制过来的旧文件则不会删除。
  7.     If fl.DateLastModified <= Date Then
  8.         fso.DeleteFile fl
  9.     End If
  10. Next   
  11. End Sub
复制代码

作者: 三毛流浪记    时间: 2015-3-9 12:06
roych 发表于 2015-3-9 10:56
新建一个模块，把这段代码复制进去，然后在copyfile之前执行。

解决了，谢谢roych前辈！
作者: 三毛流浪记    时间: 2015-3-9 19:23
三毛流浪记 发表于 2015-3-9 12:06
解决了，谢谢roych前辈！

是的，roych大哥。
作者: WFH6898    时间: 2015-11-12 10:15
用平台方法备份
作者: GOODWIN    时间: 2021-8-30 18:27
解决了，谢谢roych前辈！
作者: worryd1    时间: 2023-11-17 10:58
学习了



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3