VBA Zip 文件错误

Question

我正在使用类似于下面的代码将一些文件添加到 zip 文件夹中:

Set oApp = CreateObject("Shell.Application")
oApp.Namespace(CVar(strDest)).CopyHere CVar(strSource)

这在大多数情况下都可以正常工作，但有时我会收到错误消息:

“(压缩(压缩)文件夹错误)无法创建输出文件”。此错误是在我的 VBA 代码之外异步引发的，因此我无法捕获它以采取补救措施。

如果我进入休息模式并退回到:

oApp.Namespace(CVar(strDest)).CopyHere CVar(strSource)

然后文件被正确添加。

我猜测压缩文件夹或导致此问题的源文件上存在某种锁定，但我不确定如何检查。我应该注意，添加的文件是从 Microsoft Access 2007 创建的 pdf 文件，我们使用的是完全限定的路径，代码运行如下，每个 zip 文件最多创建 10 个 pdf:

创建 zip

运行这个循环:

对于每个 ReportToRun
CreatePdf ' 使用 DoCmd.OutputTo acOutputReport, "rptHame", acFormatPDF, strReportName
添加到Zip
下一个

知道如何解决此问题或捕获无法创建输出文件错误吗？
谢谢

Answer 1

我非常成功地使用了开源 Info Zip DLL。见 Compression DLLs, OCXs, etc链接和示例 VB 代码。