Excel办公技巧——一键删除D盘中的所有空文件夹-删除文件夹

随着岁月的流逝，在我们电脑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“盘，就会看到里面的空文件夹消失了，如下图：

怎么样，神奇吧！过去抓耳挠腮的烦心事，现在只需要按下按钮就轻松搞定了！！

鸣谢：欢迎您的点赞，评论和分享！！