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

mimi3000 · 发表于 2024-3-2 00:13

大神，如何使用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 · 发表于 2024-3-2 00:15

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

mimi3000 · 发表于 2024-3-2 00:18

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

		自动登录	找回密码
密码			免费注册