将ZIP文件提取到绝对路径

如何解决将ZIP文件提取到绝对路径

我正在尝试创建一个VBS文件，该文件可以从相对路径到绝对文件路径目标的位置提取ZIP文件的内容。之所以尝试创建此VBS文件，是因为我的总体目标是通过iExpress创建一个EXE文件，该文件会将一堆代码复制到用户的计算机上，并同时安装nodeJS。

我对采用这种方法的想法是创建一个批处理脚本，该脚本会将代码目录复制到用户计算机上的设置位置，然后执行MSI文件来安装nodeJS。我已经能够获得可以执行此操作的批处理脚本，但是现在我想将其全部打包到一个EXE中。为此，我相信我需要将代码目录放入ZIP文件中，以便可以将其添加到EXE文件中，然后我的EXE需要一些功能来提取该文件。

要添加此功能，我的研究似乎表明VBS是对此的最佳选择（特别是考虑到我希望也能补偿对PowerShell cmdlet的访问受到限制的用户）。到处搜索似乎表明这种文件是我想要的。

ZipFile="test.zip"
ExtractTo="C:\test-install\test"
 
Set fso = CreateObject("Scripting.FileSystemObject")
sourceFile = fso.GetAbsolutePathName(ZipFile)
destFolder = fso.GetFolder(ExtractTo)
 
Set objShell = CreateObject("Shell.Application")
Set FilesInZip=objShell.NameSpace(sourceFile).Items()
objShell.NameSpace(destFolder).copyHere FilesInZip,16
 
Set fso = Nothing
Set objShell = Nothing
Set FilesInZip = Nothing

这似乎行不通...

objShell.NameSpace(destFolder).copyHere FilesInZip,16

...它向我抱怨destFolder需要成为一个对象。我不太确定要为解决此错误而要更改的内容（我对VBS不太熟悉），并且互联网上的大多数示例最初都将ExtractTo变量设置为相对文件路径，并运行命令将其转换为绝对路径文件路径。我不想这样做，因为当iExpress将其全部转换为EXE时，我的理解是相对文件路径从某个地方的某个随机TEMP文件夹开始。

非常感谢您提供有关我的VBS文件中的错误的任何指导，或者指出了用于提取ZIP文件的更好路径的指示。

解决方法

似乎我对VBS的经验不足是我在这里遇到麻烦的根源。问题最终出在这条线上：

objShell.NameSpace(destFolder).copyHere FilesInZip,16

必须是这样：

objShell.NameSpace(destFolder).copyHere(FilesInZip),16

我不确定这是否特定于该语言的特定版本，因为我的错误是从互联网上许多类似脚本的示例复制而来的，但是我实际上还无法找到更多有关该脚本的详细信息。这个（如果找到更多答案，我将编辑此答案）。