Problem z UnZipem

[Xoni]

Siema, mam taki kod:

        Dim appDataa As String = GetFolderPath(SpecialFolder.ApplicationData)
        If ComboBox1.SelectedItem = "1.6.4" Then
            Dim client As WebClient = New WebClient
            AddHandler client.DownloadProgressChanged, AddressOf ProgressBar1_Click
            AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
            client.DownloadFileAsync(New Uri("https://www.dropbox.com/s/of79l984tnjhmq0/1.6.4.zip?dl=1"), appDataa & "\1.6.4.zip")
            Button2.Enabled = False
            Dim MySize As Long
            MySize = FileLen(appDataa & "\1.6.4.zip")
            If MySize = 4401851 Then
                Unzip(appDataa & "\1.6.4.zip", appDataa & "\.tinylauncher\versions")
            End If
        End If

I niestety nie wiem czemu nie można rozpakować tego zipa... Wyskakuję MsgBox "Download Complete" i plik .zip jest w na dysku ale nie może rozpakować.

 

Miałem też taki kod:

If ProgressBar1.Value = 100 Then

    Unzip(appDataa & "\1.6.4.zip", appDataa & "\.tinylauncher\versions")

End If

 

I też nie działało..  

[Sunnyline2]

Jakiej libki do wypakowania używasz ?

Zazwyczaj masz sample od autora, może po prostu coś źle używasz ;P

[Lavezzi]

Radzę skorzystać z google ;___________;

 

https://www.google.pl/search?q=how+to+unzip+file+visual+basic&oq=how+to+unzip+file+visual+basic&aqs=chrome..69i57j0l5.6320j0j7&sourceid=chrome&es_sm=93&ie=UTF-8

[Xoni]

Używam IonicZip.dll, a to moduł:

Imports System.Environment
Imports Ionic.Zip

Module SimpleUnzip
    Public Sub Unzip(ByVal ZipToUnpack As String, ByVal DirectoryToExstractTo As String)
        Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)
        Try
            Using zip As ZipFile = ZipFile.Read(ZipToUnpack)
                Dim entry As ZipEntry
                For Each entry In zip
                    entry.Extract(DirectoryToExstractTo, ExtractExistingFileAction.OverwriteSilently)

                    System.Threading.Thread.Sleep(50)
                Next
                MsgBox("Wypakowywanie zakończone!")
            End Using
        Catch ex1 As Exception
            MsgBox("Wyjątek: " & ex1.ToString())
        End Try
    End Sub
End Module