如果需要检查母文件夹是否为空,空则删除的话,VBS代码如下:
Dim fso, Folder2Delete, FolderPath, parentFolder
FolderPath = "C:\Program Files (x86)\My App\1"
MsgBox FolderPath
Set fso = CreateObject("Scripting.FileSystemObject")
Folder2Delete = fso.GetFolder( FolderPath )
MsgBox Folder2Delete
parentpath = fso.GetParentFolderName( Folder2Delete )
MsgBox parentpath
If fso.FolderExists(Folder2Delete) Then
fso.DeleteFolder(Folder2Delete)
End If
Set parentFolder = fso.GetFolder( parentPath )
MsgBox parentFolder
If parentFolder.Files.Count = 0 And parentFolder.SubFolders.Count = 0 Then
MsgBox "The folder is empty"
fso.DeleteFolder(parentFolder)
Else
MsgBox "The folder contains files and/or subfolders"
End If
Set fso = Nothing