VPF::Программное разархивированиеи архивирование

dokmislev

Дата 28.9.2014, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.9.2014

Репутация: нет
Всего: нет

Требуется на vb2008 написать программу, которая разархивирует
архивный файл, например, D:\MyArch\letter1.rar и поместит его содержимое в папку, например, D:\UnArch, а затем вновь архивирует.
То есть сделает то, что без труда каждый выполняет вручную с помощью программы-архиватора, например WinRar.
Поиск в Интернете не дал положительных результатов
Вот один из примеров кода

Код


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sh As New Shell32.Shell

        'Директория в которую хотим распаковать
        Dim Dir_unZip As String = ""
        Dir_unZip = CurDir() & "\" & "UnZipFiles"

        'Адрес к архиву из которого всё будет извлечено
        Dim File_Zip As String = ""
        File_Zip = CurDir() & "\" & "ZipFiles" & "\" & "ЖдановаСветлана--Чертенок(2)_fb2.rar"

        'Директория в которую хотим распаковать
        Dim output As Shell32.Folder = sh.NameSpace(Dir_unZip)

        'Адрес к архиву из которого всё будет извлечено
        Dim input As Shell32.Folder = sh.NameSpace(File_Zip)
        output.CopyHere(input.Items, 4)
        Stop
    End Sub

Выдает какую-то ошибку и ничего не могу поделать...
Кстати, на вкладке СОМ в Referensis проекта я включил Shell32.
Помогите, пожалуйста!

diadiavova

Дата 28.9.2014, 13:44 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Надо искать библиотеку, которая умеет работать с нужными типами архивов. Например такую
https://sharpcompress.codeplex.com/
сам не пробовал, нашёл с помощью гугла, если не подойдёт - поищи ещё что-нибудь.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »