ms-access - VB6/VBA 的 LZMA 压缩？

Question

希望在我的 Access 2000 应用程序中使用 LZMA 压缩加密文件。有谁知道在 VB6/VBA 中执行此操作的最简单方法或知道任何源代码吗？

Answer 1

你说你想压缩加密文件？压缩加密文件通常不会节省太多空间，因为加密过程会扰乱压缩所处理的重复结构。所以我假设你的意思是压缩和加密文件。

有一个7-zip lzma SDK但您需要编译代码并弄清楚如何将其转换为 Windows dll 或您可以使用的东西。

我建议您将任务推送到命令行，即

Sub test()
    Dim ProgramTaskID As Double
    ProgramTaskID = Shell("c:\compress.bat c:\source.txt c:\dest.zip", VbAppWinStyle.vbNormalFocus)
End Sub

您不需要为此创建批处理文件，您可以直接提供命令。程序启动后，Shell 函数将立即返回，因此您需要等待并测试输出文件的出现，然后再尝试对其执行任何操作。

7-zip 是免费的，并提供您可以使用的命令行语法。