VBA Access：如何从 VBA Access 压缩和加密目录？

Question

如何使用 Windows 标准 zip 功能使用 VBA Access 压缩目录并加密 zip 文件？

到目前为止，我已经设法找到创建 Zip 文件并将文件从目录移动到 zip 文件的代码。但是 Zip 文件未加密。请参阅下面的代码：

Public Function AddFilesToZip()

Dim objFSO As Object, objZip As Object, objShell As Object
Dim objFolder As Object, objFile As Object
Dim sngStart As Single
Dim strPath As String, strZip As String
Dim inputfile As DAO.Recordset
Set inputfile = CurrentDb.OpenRecordset("SELECT InputFilepath, Format(End_of_Month, 'yyyymmdd')  FROM CONFIG WHERE Active = True;")
strPath = inputfile(0)  'Path to read files from


strZip = strPath & "Test Import Files " & inputfile(1) & ".zip"  'Output zip file

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objZip = objFSO.CreateTextFile(strZip)
objZip.WriteLine Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)
objZip.Close

Set objShell = CreateObject("Shell.Application")
Set objFolder = objFSO.GetFolder(strPath)

    'loop through files - adding them to the zip
For Each objFile In objFolder.Files
    If objFile <> strZip Then
    'objShell.NameSpace("" & strZip).CopyHere objFile.Path
    objShell.NameSpace("" & strZip).MoveHere objFile.Path
    sngStart = Timer
    Do While Timer < sngStart + 2
        DoEvents
    Loop
    End If
Next



End Function

Answer 1

可能不是您所希望的，但不幸的是，用于压缩（或压缩文件夹）的 Windows shell 功能不进行加密。这是一种非常简单的方法，可以将文件以压缩形式组合在一起，仅此而已。

创建 zip 文件后，您需要使用第三方工具或库通过 VBA Shell 函数或类似机制调用它来加密您的 zip 文件。当然，缺点是任何此类工具都需要先安装在计算机上才能使用。

从好的方面来说，你不需要那些笨拙的代码来完成任务的外壳压缩部分，因为这些工具可以同时压缩和加密；只要确保您阅读了需要传递的命令行选项即可。