Не распаковывается архив zip

robertono · Регистрация: 04.07.2011

Author24 — интернет-сервис помощи студентам

Помогите ! Пытаюсь разархивировать .zip архив.
Скрипт для разархивации я нашёл на этом же форуме там где visual basic .net faq , пост от RussianBlackbird.
Вообщем вот такая ошибка вылетает (как не странно, в окне а не в Списке ошибок. Ошибка вылетает после нажатии на кнопку где и расположен код разархивации) (Ошибка в приложённых файлах)

А вот сам код кнопки с разархивацией:

VB.NET

    
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim shs As New Shell32.Shell()
        Dim outputs As Shell32.Folder = shs.NameSpace(My.Settings.mcpath)
        Dim inputs As Shell32.Folder = shs.NameSpace(My.Settings.mcpath & ".shadow.zip")
        outputs.CopyHere(inputs.Items, 16)
        MsgBox("Готово.")
End Sub

Microsoft Shell и что то там я импортировал в проект , на отсутствие студия не ругается (При отсутствии этого shell в проекте не компилировалась бы программа).
My.Settings.mcpath равен =

VB.NET

1
2
3

Dim minecraftfolder As String = systemdir & ":\Documents and Settings\" & sysusername & "\Application Data\.shadow\"
My.Settings.mcpath = minecraftfolder
        My.Settings.Save()

Помогите пожалуйста ! Делаю программу, не могу продвигаться дальше, это самая главная часть!
P.S. Я не делаю архиватор

robertono · 05.02.2013, 02:19 **[ТС]**

А и ещё вопрос. Мне не понятен этот фрагмент кода :

VB.NET

1	outputs.CopyHere(inputs.Items, 16)

А именно число 16. Что оно обозначает ?

	05.02.2013, 02:19