Может, есть смысл(Если у тя WinXP) не библиотеки подключать, а консольную версию с помощью функции "WinExec" запускать
Пример:
- Код: Выделить всё
Private sub MakeArchive(InputName as string,OutFile as string)
dim Str as String
str=str & app.path & "\System\7Z.exe"
WinExec str & "-a D:\MoiFail.exe D:\MoiFail.7z",0
end sub
У мня прекрасно работает.
Можеш также заюзать C:\Windows\system32\Makecab.exe
А для распаковки C:\Windows\extrac32.exe
Запускаешь вышеуказанным методом и получаешь *.Cab - архив