如何使用VBScript从zip中删除文件

我对VBScript非常陌生（这是我第一次使用它）。到目前为止，我已经复制和改变了我的方式，以达到我的目的

我有一个APK文件，对我的需要来说太大了。所以我一直在做的是手动将其更改为zip，然后从中删除一些图像，然后将其重命名为APK。我正试图用VBScript实现自动化。到目前为止我有

Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
sFolder = WORKSPACE & "\temp\" & app & "\build\" & PLATFORMSUBFOLDER & "\dist\" & app & "\bin"
oShell.CurrentDirectory = sFolder 

'Make the Apk a Zip.
fso.MoveFile apkfile, zipApk

这一切都在运行，我可以在Windows资源管理器中看到，APK将更改为我希望的zip格式。所以我想知道是否有什么快速的方法可以直接删除几个文件而不提取全部内容

如果没有，是否有一种简单的方法来提取文件并同时解析它们

我看了这里 但似乎无法让它工作。我不断收到错误“Object required:'objShell.Names（…）”，是否有任何提示说明发生这种情况的原因？

使用该方法将项目移出zip文件：

zipfile = "C:\path\to\your.zip"
fname   = "some.file"
dst     = "C:\some\folder"

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

然后从

dst

文件夹中删除文件：

Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile fso.BuildPath(dst, fname), True

---

是否可以在命令行模式下安装并使用它，vbs可以在shell中执行？有些。我要到星期一才有机会测试这个，所以我会再回来检查，但如果它能工作的话，它看起来正是我所需要的。谢谢