随着岁月的流逝，在我们电脑D盘中的文件夹数量也越来越多，而我们又不知道哪些文件夹是没有内容的，比如下面的例子：
我们又该怎么办呢？不用担心，下面的几行代码就一键搞定：
Sub 一键删除D盘中所有的空文件夹()
Dim File As Object, Drive As Object, i As Integer
Set File = CreateObject("Scripting.FileSystemObject")
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“盘，就会看到里面的空文件夹消失了，如下图：
怎么样，神奇吧！过去抓耳挠腮的烦心事，现在只需要按下按钮就轻松搞定了！！
鸣谢：欢迎您的点赞，评论和分享！！
