vbscript - 在 vbsript 中解压缩受密码保护的文件

Question

我在这里遇到了麻烦，你能告诉我如何在 vbscript 中解压缩受密码保护的字段吗？我有一个运行完美的代码，但每次运行时都会询问密码

pathToZipFile="C:\folder.zip" 
extractTo="C:\" 
set sa = CreateObject("Shell.Application") 
set filesInzip=sa.NameSpace(pathToZipFile).items 
sa.NameSpace(extractTo).CopyHere(filesInzip)

我需要一个不会在运行时询问密码的代码，请帮助，谢谢！

Answer 1

AFAIK 该Shell.Application对象不支持提供密码。改用7-zip：

pass    = "..."
zipfile = "your.zip"

CreateObject("WScript.Shell").Run "7za.exe x -p" & pass & " " & zipfile, 0, True

如有必要，将路径添加到7za.exe和/或file.zip. 如果路径包含空格，您还需要在其周围加上双引号，例如：

Function qq(str) : qq = Chr(34) & str & Chr(34) : End Function

zipfile = qq("C:\path\with spaces\to\your.zip")