Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Распаковка .zip или .rar архива.


Автор: AHTUxPK 5.9.2011, 13:24
Здравствуйте.

Столкнулся тут я с одной проблемой. Моя программа должна скачивать файл с сервера, проверять, скачался ли он и если скачался, то разархивировать его. Я всё сделал, кроме самой распаковки. Искал долгое время, но нашёл только нерабочие коды и этот:
Код

Dim b$, q$
DisplayAlerts = False
q = ""
b = "beda.rar"
Shell "C:\Program Files\WinRAR\rar.exe e -o+ " & b & " " & q, vbHide

Он распаковывает .rar файл нормально, но для его работы нужно знать расположение программы, а если мне это неизвестно или она просто не установлена? и нужно чтобы пользователь программы ничего не вводил.

Прошу помочь в написании кода для распаковки архива... Rar или Zip значения не имеет, но лучше, чтобы была распаковка .zip файла.

Автор: Dexx 5.9.2011, 14:13
http://www.vbaccelerator.com/home/vb/code/libraries/compression/unzipping_files/VB6_Unzip_Sample_Project.asp

Добавлено через 3 минуты и 45 секунд
http://www.mcmillan.org.nz/paradoxes/code/ZipExtractionClass.html

Добавлено через 6 минут и 44 секунды
ну или еще чего в этом роде

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)