如何在 VBA 中实现 Zip 功能？

Question

最近我一直在使用 vba 开发一个应用程序，它依赖于文档本身的 .docm 文件中包含的一些文件。 最初，我使用 Windows XP 压缩文件夹功能以编程方式提取文档的内容。 这是一个最佳解决方案，因为它内置于将使用此功能的所有 Windows XP 中，因此无需安装。 然而，我遇到了一个障碍：似乎在我提取文档一定次数后，它开始错误提示“错误，该文件已经存在”。 最初，我以为我破坏了某些东西并深入挖掘，结果发现我的代码中没有错误，而是压缩文件夹中的错误。

如果您系统上的某个 zip 文件出现“文件已存在”错误，则压缩文件夹不再适用于任何同名文件，如果您重命名所述文件，它会再次开始工作。 所以这是我的问题：如何在没有压缩文件夹的情况下在 VBA 中实现 zip 功能？ 额外问题：如何修复压缩文件夹？

谢谢你的时间。

-西莫

更新： 目前我使用压缩文件夹来工作，我正在通过每次发生错误时将文件重命名为新名称来解决该错误。 这工作正常，但我正在寻找更多的解决方案，而不是解决问题的方法。

Answer 1

此内容可能会对您有所帮助。 看起来他正在使用脚本文件系统对象......

Answer 2

也许是额外问题的一个想法：在将文件与 VBA 应用程序一起使用之前，您不能重命名该文件 2 次吗？ 首先给它一个临时名称，然后将其重命名回原来的名称。

编辑：
我只是在这里猜测，但似乎不太可能从您的应用程序中解决这个问题，而是将其作为 Windows 补丁来修复。 这意味着您的应用程序将运行的每台计算机都必须安装此补丁才能正常工作。 这不是你可以依赖的东西。 所以我认为你应该坚持使用解决方法。

Answer 3

看来没有好的方法可以直接在 Windows 中访问 zip 功能。 似乎唯一的好方法是使用其他答案中链接的 zip 文件夹复制方法。 至于我遇到的问题，我每次都会使用新的文件名来解决它。