大神，如何使用compress -archive命令，将多个目录压缩为带密码的文件？的

mimi3000

大神，如何使用compress -archive命令，将多个目录压缩为带密码的文件？如下是度娘的回答：
-------------------------------------------------------------------------------------------------------------
Sub CompressDirectories()
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    psword = "12345"
    ' PowerShell命令字符串
    Dim cmdString As String
    cmdString = "Compress-Archive -Path e:\a\1，e:\a\2 -DestinationPath e:\OutputFile.zip -Update -CompressionLevel Optimal -EncryptionAlgorithm AES256 -Password " & psword
    pws = "ConvertTo-SecureString -AsPlainText" & psword & "-Force"
    ' 运行PowerShell命令
    objShell.Run "powershell.exe -Command """ & cmdString & """", vbHide, True
End Sub
-------------------------------------------------------------------------------------------------------------
以上代码不能生成带密码的压缩文件。为何？

mimi3000

哪位大神可以回答一下？谢谢。

mimi3000

Sub CompressDirectories()     Dim objShell As Object     Set objShell = CreateObject("WScript.Shell")     psword = "abc95599"     ' PowerShell命令字符串     Dim cmdString As String     pws = "ConvertTo-SecureString -AsPlainText" & psword & "-Force"     cmdString = "Compress-Archive -Path e:\a\1 -DestinationPath e:\OutputFile.zip -Update -CompressionLevel Optimal -EncryptionAlgorithm AES256 -Password " & pws      ' 运行PowerShell命令     objShell.Run "powershell.exe -Command """ & cmdString & """", vbHide, True End Sub