大牛来，中如何实现将指定目录的文件压缩到指定目录中，目前只能实现压缩文件但没...

mimi3000

执行以下代码后，只有压缩文件，但没有密码，感觉是密码参数没有传递，有什么办法能解决吗





Sub CompressWithPassword()
    Dim objShell As Object
    Dim strSource As String
    Dim strDestination As String
    Dim strPassword As String
    Dim strScript As String

    ' 要压缩的文件或文件夹路径
    strSource = "E:\test"

    ' 压缩后的 ZIP 文件路径
    strDestination = "E:\t1.zip"

    ' 压缩文件的密码
    strPassword = "YourPassword"

    ' 创建 PowerShell 脚本
    strScript = "Compress-Archive -Path '" & strSource & "' -DestinationPath '" & strDestination & "' -CompressionLevel Optimal;" & _
                "$shell = New-Object -ComObject Shell.Application;" & _
                "$zipPackage = $shell.NameSpace('" & strDestination & "');" & _
                "$zipPackage.CopyHere($zipPackage.Items(), 0x14);" & _
                "$zipPackage.Items() | ForEach-Object {$_.InvokeVerb('AddPassword');};"

    ' 创建 Shell 对象并执行 PowerShell 脚本
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "powershell.exe -ExecutionPolicy Bypass -Command """ & strScript & """", 1, True

    ' 释放对象
    Set objShell = Nothing
End Sub