Vbscript VBS从压缩文件夹中删除文件夹

我正在尝试使用VBScript删除已压缩的文件夹。zip文件还有其他文件夹和文件

编辑开始：基本代码来自： 结束编辑

以下是我尝试删除的脚本的本地化示例：

zipfile = "D:\testFolder\zippers\TestIt\New folder\your.zip"
foldername   = "New folder"
destination     = "D:\testFolder\zippers\TestIt\New folder"

Set app = CreateObject("Shell.Application")
For Each f In app.NameSpace(zipfile).Items
  If f.Name = foldername Then
    app.Namespace(destination).MoveHere f, FOF_NOCONFIRMATION
  End If
Next

Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder fso.BuildPath(destination, foldername), True

遗憾的是，ZIP中的文件夹仍然存在。所以MoveHere看起来像是复制品。。。诡异的

有人能帮忙吗？

---

PS：没有“删除文件夹”标签，只有一个“删除文件”标签…

如果您在复制时给出正确的属性，那就太好了

尽管如此，它看起来不像

Shell.Application

对象能够从zip存档中删除文件夹。对文件夹调用

MoveFile

会将该嵌套文件夹中的所有文件移出存档，但会留下一个空（子）文件夹树

要完全删除嵌套文件夹，您需要使用第三方工具，如：

---

如果你在复制时给出正确的归属，那就太好了

尽管如此，它看起来不像

Shell.Application

对象能够从zip存档中删除文件夹。对文件夹调用

MoveFile

会将该嵌套文件夹中的所有文件移出存档，但会留下一个空（子）文件夹树

要完全删除嵌套文件夹，您需要使用第三方工具，如：

---

很抱歉。你是对的，我只是不记得我从哪里得到的基本代码，在开始篡改它之前。。。谢谢他的提示，但遗憾的是，我正试图在没有任何第三方程序的情况下做到这一点，否则我只会使用7zip。哦，好吧，挑战不可能；）谢谢你们两个，很抱歉。你是对的，我只是不记得我从哪里得到的基本代码，在开始篡改它之前。。。谢谢他的提示，但遗憾的是，我正试图在没有任何第三方程序的情况下做到这一点，否则我只会使用7zip。哦，好吧，挑战不可能；）谢谢你们两个。

Function qq(s) : qq = """" & s & """" : End Function

Set sh = CreateObject("WScript.Shell")
sh.Run "C:\path\to\7z.exe d " & qq(zipfile) & " " & qq(foldername), 0, True