2011-09-02 98 views
3

尋找LZMA壓縮我的Access 2000應用程序中的加密文件。有誰知道在VB6/VBA中執行此操作的最簡單方法,還是知道任何源代碼?LZMA壓縮對於VB6/VBA?

+0

雖然不是LZMA,好像放氣/ gzip的/ ZIP(LZ77)應該是很常見......或許庫配套的7-Zip/bzip2的(LZMA)? FWIW,LZMA2於2009年推出:-) – 2011-09-02 19:34:16

回答

0

你說你想壓縮加密文件?壓縮加密文件通常不會節省太多空間,因爲加密過程會擾亂壓縮工作的重複結構。所以我假設你的意思是壓縮和加密文件。

有一個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是免費提供,你可以使用命令行語法。

0

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

CryptoSys - Purchasing

CryptoSys - Features

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