VBScript抽出したzipファイルのフォルダ名

Question

以下のコードを使用してファイルを解凍することができます。

sUnZipFolder = ABC.zip 

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

抽出されたフォルダの名前はどのようにわかりますか？

例：Zipファイル名はABC.zipで、その内部にはXYZという1つのフォルダが含まれています。 ABC.zipを解凍した後。フォルダ名XYZを取得するにはどうすればよいですか？ XYZフォルダ名は毎月ダウンロードするサービスパックであるため、毎月変更されます。

Answer 1

sFilesInZip(0)を使用することはできませんが、列挙してフォルダを見つけることができます。

for each x in sFilesInZip 
    folder = x 
next 
msgbox folder