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