应用场景
文件夹整理,清除空文件夹
知识要点
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
联系客服