Question

我对VBScript很新。我已经对我想要完成的事情做了一些广泛的研究，甚至找到了做什么的例子，但却无法让它正常工作。

在我完美的世界中，我需要解压缩从第三方供应商发送到文件夹的所有压缩文件，将解压缩的文件导入另一个文件夹，然后删除压缩文件。

以下脚本适用于非密码保护的zip文件，但从供应商发送的所有文件都有密码。如在另一个post中所见，我注释掉的以下行应插入密码但不插入密码。 “...(pwd+myZipfile)”和“...(pwd+extractTo)”。

先谢谢你的帮助。请建议任何代码改进或其他方法来实现这一目标。

pathToZipFile = "P:\ZipFiles"  
extractTo = "P:\UnZip"    
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(pathToZipFile)
Set fc = f.Files
Dim myZipFile 
Dim intOptions, objShell, objSource, objTarget
Dim pwd
pwd = "password" 

For Each f1 in fc
On Error Resume Next

    myZipFile = f1

    '    Create the required Shell objects
    Set objShell = CreateObject( "Shell.Application" )

    '    Create a reference to the files and folders
    'Set objSource = objShell.NameSpace(pwd+myZipFile).Items( ) 
    Set objSource = objShell.NameSpace(myZipFile).Items( )

    '     Create a reference to the target folder
    Set objTarget = objShell.NameSpace(pwd+extractTo)
    Set objTarget = objShell.NameSpace(extractTo)
    intOptions = 256

    '     UnZIP the file
    objTarget.CopyHere objSource, intOptions

    '     Release the objects
    Set objSource = Nothing
    Set objTarget = Nothing
    Set objShell  = Nothing

    'Delete File from "P:\ZipFiles" after unzipping
    fso.DeleteFile f1, True

Next

Answer 1

如果您仔细查看pwd+...来自pwd的{{3}}，您会发现Shell.Application 不包含密码，但是路径。该变量可能以Unix命令answer命名，它代表“打印工作目录”。

据我所知，Function qq(str) qq = Chr(34) & str & Chr(34) End Function zipfile = "..." password = "..." Set sh = CreateObject("WScript.Shell") sh.Run "7za.exe x " & qq(zipfile) & " -p" & qq(password), 0, True对象不支持解压缩受密码保护的Zip文件。 pwd您引用的问题表明Another answer。或者您可以使用DotNetZip library：

{{1}}

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

1 个答案: