windows - 如何使用 Windows XP 中的内部选项在 VBScript 中解压缩文件

Question

我想使用 VBScript 解压缩一个 .zip 文件，只是它始终是一台没有外部应用程序的新计算机。现在我知道 Windows XP 和 2003 有一个内部 .zip 文件夹选项，所以我想我可以通过 VBScript 使用它来提取文件。

我该怎么做？

我试过:

Set objShell = CreateObject("Shell.Application")

Set SrcFldr = objShell.NameSpace(fileName)
Set DestFldr = objShell.NameSpace(appDir)
DestFldr.CopyHere(SrcFldr) 

这没用。可能是什么问题？

Answer 1

只需设置 ZipFile = zip 文件的位置，并将 ExtractTo = 设置为 zip 文件应解压缩到的位置。

'The location of the zip file.
ZipFile="C:\Test.Zip"
'The folder the contents should be extracted to.
ExtractTo="C:\Test\"

'If the extraction location does not exist create it.
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
   fso.CreateFolder(ExtractTo)
End If

'Extract the contants of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing