ms-access - VB6/VBA の LZMA 圧縮?

Question

Access 2000 アプリケーションで暗号化されたファイルを LZMA 圧縮する方法を探しています。VB6/VBA でこれを行う最も簡単な方法を知っている人、またはソース コードを知っている人はいますか?

Answer 1

これは無料ではなく、機能的にやり過ぎかもしれません（質問で暗号化について言及しましたが;-)：

CryptoSys - 購入

CryptoSys-機能

おそらく、CryptoSys の重要な特徴の 1 つは、VB6 と VBA だけでなく、複数の開発言語/プラットフォームをサポートしていることです。

Answer 2

暗号化されたファイルを圧縮したいとおっしゃいましたか？暗号化されたファイルを圧縮しても、通常、暗号化プロセスは圧縮が機能する繰り返し構造をスクランブルするため、あまりスペースを節約できません。つまり、ファイルを圧縮して暗号化することを意味していると思います。

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 は無料で、使用できるコマンド ライン構文を提供します。