【help】纯粹的复制型备份

三毛流浪记

纯粹的复制型备份，导致文件越来越多，该怎么让其自动保留最新的几份备份而删除较早的备份呢？请各位老师指教！感谢！

三毛流浪记

roych 发表于 2015-3-9 10:56
新建一个模块，把这段代码复制进去，然后在copyfile之前执行。

解决了，谢谢roych前辈！

三毛流浪记

点击树控件出现如图错误该如何解决？

roych

新建一个模块，把这段代码复制进去，然后在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前辈！

是的，roych大哥。

WFH6898

用平台方法备份

GOODWIN

解决了，谢谢roych前辈！

worryd1

学习了