Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > Программное разархивированиеи архивирование

Автор: dokmislev 28.9.2014, 12:35

Требуется на 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

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