[Tutorial]Unzipping with VB.Net

Imports ICSharpCode.SharpZipLib

Dim fbd as folderbrowserdialog
fbd.showdialog
textbox1.text = fbd.selectedpath

Dim unz as zip.fastzip()

unzip.ExtractZip("ZipDirectory", "targetdirectory", "filefilter")

Dim desktop as string

desktop = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) ' getting desktop path of any computer

unz.ExtractZip(Textbox1.text & "\Filename"", desktop & "\Foldername"", "")

Dim directory As String = System.IO.Path.Combine(desktop, "Foldername to save it to")

            Dim file As String = System.IO.Path.Combine(textbox1.Text, "foldernametounzip.zip")

unz.ExtractZip(file, directory, "")

Imports ICSharpCode.SharpZipLib
Public Class Form1
    Dim desktop As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fbd As New FolderBrowserDialog
        fbd.ShowDialog()
        filepath.Text = fbd.SelectedPath
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try

            Dim directory As String = System.IO.Path.Combine(desktop, "Foldername to save it in")

            Dim file As String = System.IO.Path.Combine(filepath.Text, "FileToUnzip.zip")

            Dim unz As New Zip.FastZip()
            unz.ExtractZip(file, directory, "")

        Catch
            MsgBox(ErrorToString)
        End Try
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        desktop = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    End Sub
End Class