vbs 删除A文件夹内的空文件夹

下面是一个使用VBScript删除文件夹内空文件夹的示例代码：

Set objFSO = CreateObject("Scripting.FileSystemObject")

' 要删除的文件夹路径
strFolderPath = "C:\Path\to\A"

' 检查文件夹是否存在
If objFSO.FolderExists(strFolderPath) Then
    ' 递归遍历文件夹内的所有子文件夹
    DeleteEmptyFolders objFSO.GetFolder(strFolderPath)
    WScript.Echo "空文件夹删除成功。"
Else
    WScript.Echo "文件夹不存在。"
End If

Sub DeleteEmptyFolders(objFolder)
    ' 遍历文件夹内的所有子文件夹
    For Each objSubFolder In objFolder.SubFolders
        ' 递归删除子文件夹内的空文件夹
        DeleteEmptyFolders objSubFolder
    Next
    
    ' 检查文件夹是否为空
    If objFolder.Files.Count = 0 And objFolder.SubFolders.Count = 0 Then
        ' 删除空文件夹
        objFolder.Delete True
    End If
End Sub

要使用此代码，请将 C:\Path\to\A 替换为要删除空文件夹的目标文件夹路径，并将代码保存为 .vbs 文件。然后，双击运行该脚本即可删除目标文件夹内的空文件夹。