VBScript提取zip文件的文件夹名称

Question

我可以使用以下代码解压缩文件。

sUnZipFolder = ABC.zip

set sFilesInZip = objShell.NameSpace(sZipFileNamePath).items
objShell.NameSpace(sUnZipFolder).CopyHere(sFilesInZip)

如何弄清楚提取的文件夹名称是什么？

例如：Zip文件名是ABC.zip，ABC zip文件里面包含一个名为XYZ的文件夹。解压缩ABC.zip之后。如何捕获文件夹名称XYZ？ XYZ文件夹名称每月更改一次，因为它是每月下载的服务包。

Answer 1

出于某种原因，您无法使用sFilesInZip(0)，但您可以枚举它以查找该文件夹。

for each x in sFilesInZip
    folder = x
next
msgbox folder