鲁达
时间在慢慢地流逝着，而存放在"D"盘里的信息量却越来越大。我们发现有些信息是冗余的，特别是那些在三年前已经创建的信息，那么，如何快速地删掉它们呢?! 方法是：
第1步：在Excel工作表已添加[开发工具]前提下，按Alt+F11快捷键，打开VB编辑器窗口；
第2步：单击[插入]菜单命令，在其下拉菜单中，选择模块1；
第3步：双击模块1，在其代码窗口下输入如下代码，
Sub DeleteOldFiles()
Dim File As Object
On Error Resume Next
With CreateObject("Scri;)
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步的截图如下：
您若对以上秒杀冗余信息的技巧，有任何意见或建议，请发表您宝贵的评论！
您若喜欢这篇文章，欢迎您的点赞！收藏！！转发！！！