Сжатие LZMA для VB6/VBA?

Вы говорите, что хотите сжать зашифрованные файлы? Сжатие зашифрованных файлов обычно не приводит к значительной экономии места, поскольку процесс шифрования зашифровывает повторяющиеся структуры, над которыми работает сжатие. Итак, я предполагаю, что вы имеете в виду сжатие и шифрование файлов.

Существует 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 бесплатен и предоставляет синтаксис командной строки, который вы можете использовать.

Это не бесплатно и функционально может быть излишним (хотя вы упомянули шифрование в своем вопросе ;-):

CryptoSys — Покупка

CryptoSys — Возможности

Возможно, одной из важных особенностей CryptoSys является то, что он поддерживает несколько языков/платформ разработки, а не только VB6 и VBA.

Как и в ответе Степена Тернера, вы можете использовать xz.exe со страницы XZ Utils (см. раздел Windows).

Тогда код будет выглядеть так:

Sub LzmaCompression()
    Dim ProgramTaskID As Double
    ProgramTaskID = Shell("xz.exe --format=lzma test.txt", VbAppWinStyle.vbNormalFocus)
End Sub