LZMA壓縮對於VB6/VBA？

Question

尋找LZMA壓縮我的Access 2000應用程序中的加密文件。有誰知道在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是免費提供，你可以使用命令行語法。

Answer 2

這個人是不是免費的，功能上可能是矯枉過正（雖然你做了你的問題;-)提加密：

CryptoSys - Purchasing

CryptoSys - Features

或許，重要特徵之一CryptoSys是它支持多種開發語言/平臺，而不僅僅是VB6和VBA。