将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文件的更好路径的指示。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

exe exe vbscript vbscript