随着岁月的流逝 ， 在我们电脑D盘中的文件夹数量也越来越多，而我们又不知道哪些文件夹是没有内容的，比如下面的例子：
我们又该怎么办呢？不用担心，下面的几行代码就一键搞定：
Sub 一键删除D盘中所有的空文件夹()
Dim File As Object, Drive As Object, i As Integer
Set File = CreateObject(“Scripting.FileSystemObject”)
【Excel办公技巧——一键删除D盘中的所有空文件夹】On Error Resume Next
For Each Drive In File.getfolder(“D:”).SubFolders
If Drive.Size = 0 Then
i = i + 1: File.DeleteFolder (Drive)
End If
Next Drive

文章插图
If i > 0 Then
MsgBox “共删除了” & i & “个空文件夹！”, vbOKOnly + vbInformation, “提示”
End If
End Sub
模块1代码窗口的截图如下：
在Excel菜单栏已添加[开发工具]的条件下，我们可以按Alt+F11快捷键，打开VBE窗口，点击[插入]命令空文件夹无法删除 找不到该项目，选择[模块]选项，然后 ， 我们把上面的代码复制到模块1代码窗口中即可 。
在非设计模式下，按[执行]按钮后空文件夹无法删除 找不到该项目，我们会收到如下的对话框：
点击“OK“按钮后，我们再打开“D“盘，就会看到里面的空文件夹消失了，如下图：
怎么样，神奇吧！过去抓耳挠腮的烦心事，现在只需要按下按钮就轻松搞定了?。?
本文到此结束，希望对大家有所帮助！

猜你喜欢

• 净化空气的十大盆栽植物 龟背竹上榜，第二被称为“绿色净化器”
• 农民种植黄豆，为什么农民都喜欢用农家肥，而不是用化肥？
• 娶媳妇就娶这样的，生育能力强，传宗接代全靠她
• 你的善良，人不知天知
• 新生儿最佳的喂养方式——母乳喂养，向坚持母乳喂养的妈妈致敬
• 宝宝的第一口辅食，应该吃多少？米粉这么吃才正确？
• 谁来打破奥迪无息贷款的“潜规则”
• ?“五一”假期淄博再成旅游顶流 旅游行业为何这么火？
• 除甲醛植物十大排名 芦荟上榜，第三原产于墨西哥