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")

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

1 个答案: