Excel-VBA删除D盘中所有空文件夹

应用场景

文件夹整理，清除空文件夹

知识要点

1：CreateObject('Scripting.FileSystemObject') 引用FSO对象

2：Subfolders 属性 返回包含所有文件夹的一个 Folders 集合 这些文件夹包含在某个特定的文件夹中，包括设置了隐藏和系统文件属性的那些文件夹

3：Size对文件、返回指定文件的字节数

Sub 删除D盘中空文件夹()

    Dim FileSys As Object, Drv As Object, i As Integer

    Set FileSys = CreateObject('Scripting.FileSystemObject') '引用FSO对象

    On Error Resume Next

    For Each Drv In FileSys.GetFolder('D:\').Subfolders

        If Drv.Size = 0 Then i = i 1: FileSys.DeleteFolder (Drv) '删除大小为0的文件夹

    Next Drv

    If i > 0 Then MsgBox '已删除' & i & '个空目录'

End Sub