VBScript 代码：删除指定文件夹中的空文件夹

' 设置文件夹路径 folderPath = 'C:\aa'

' 创建文件系统对象 Set fso = CreateObject("Scripting.FileSystemObject")

' 检查文件夹是否存在 If fso.FolderExists(folderPath) Then ' 获取文件夹对象 Set folder = fso.GetFolder(folderPath)

' 遍历文件夹中的子文件夹
For Each subfolder In folder.SubFolders
    ' 检查子文件夹是否为空
    If subfolder.Files.Count = 0 And subfolder.SubFolders.Count = 0 Then
        ' 删除空文件夹
        fso.DeleteFolder subfolder.Path
    End If
Next

' 释放对象
Set subfolder = Nothing
Set folder = Nothing

End If

' 释放文件系统对象 Set fso = Nothing

请注意，此代码将删除指定文件夹中的所有空文件夹。请确保在运行代码之前备份重要的文件或文件夹。