时间在慢慢地流逝着,而存放在”D”盘里的信息量却越来越大。我们发现有些信息是冗余的,特别是那些在三年前已经创建的信息,那么,如何快速地删掉它们呢?! 方法是:
第1步:在Excel工作表已添加[开发工具]前提下,按Alt+F11快捷键,打开VB编辑器窗口;
第2步:单击[插入]菜单命令,在其下拉菜单中,选择模块1;
第3步:双击模块1,在其代码窗口下输入如下代码,
Sub DeleteOldFiles()
Dim File As Object
On Error Resume Next
With CreateObject(“Scripting.FileSystemObject”)
For Each File In .Getfolder(“D:”).Files
If Evaluate(“DATEDIF(” & File.DateCreated * 1 & “, NOW,” & “””M””” & “)”) > 36 Then .deletefile File
Next
End With
End Sub
第4步:在非设计模式下,单击[运行]按钮,即可启动删除程序;
前4步的截图如下:
您若对以上秒杀冗余信息的技巧,有任何意见或建议,请发表您宝贵的评论!
您若喜欢这篇文章,欢迎您的点赞!收藏!!转发!!!
免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://itzsg.com/10413.html