Imports Ionic.Zip
Public Class arh1
    Private Sub arh1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'запуск формы
            Label1.Visible = False
            TextBox1.Visible = False
            Button3.Visible = False
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'кнопка назад
        Me.Close()
        Form2.Show()
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        'если галочка стоит,то убрать файл и оставить папку
        If CheckBox1.Checked = True Then
            Button1.Visible = Check()
            Label1.Visible = True
            TextBox1.Visible = True
            Button3.Visible = True
            Label3.Visible = False
            TextBox3.Visible = False
            Button5.Visible = False
        Else
            Button1.Visible = Check()
            Label1.Visible = False
            TextBox1.Visible = False
            Button3.Visible = False
            Label3.Visible = True
            TextBox3.Visible = True
            Button5.Visible = True
        End If
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        'если файл
        OpenFileDialog1.ShowDialog()
        TextBox3.Text = OpenFileDialog1.FileName
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'если папка
        FolderBrowserDialog1.ShowDialog()
        TextBox1.Text = FolderBrowserDialog1.SelectedPath
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        'кнопка сохранить
        SaveFileDialog1.ShowDialog()
        TextBox2.Text = SaveFileDialog1.FileName + ".zip"
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'архивация
        Dim folder = TextBox1.Text
        Dim file = TextBox3.Text
        Dim save = TextBox2.Text
        'архивация папки
        If CheckBox1.Checked Then
            TextBox1.Clear()
            TextBox2.Clear()
            MyZip(folder, save)
            MsgBox("Архивация завершена!")
            TextBox1.Clear()
            TextBox2.Clear()
            'Process.Start(unzip2)
        ElseIf Not CheckBox1.Checked Then
            'архивация файла
            TextBox2.Clear()
            TextBox3.Clear()
            Using zip As ZipFile = New ZipFile()
                zip.AddFile(file, "")
                zip.Save(save) ' 
                MsgBox("Архивация завершена!")
                TextBox2.Clear()
                TextBox3.Clear()
            End Using
        End If
    End Sub
    'упаковка папки в zip
    Public Sub MyZip(ByVal ContentFolder As String, ByVal CreateZip As String)
        Using zip As ZipFile = New ZipFile()
            zip.AddDirectory(ContentFolder)
            zip.Save(CreateZip)
        End Using
    End Sub
    Public Sub MyFile(ByVal ContentFolder As String, ByVal CreateZip As String)
        Using zip As ZipFile = New ZipFile()
            zip.AddDirectory(ContentFolder)
            zip.Save(CreateZip)
        End Using
    End Sub
    Function Check() As Boolean
        If CheckBox1.Checked = True Then
            Return CBool(TextBox1.TextLength * TextBox2.TextLength)
        Else
            Return CBool(TextBox1.TextLength * TextBox3.TextLength)
        End If
        Return False
    End Function
    Private Sub TextBoxes_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
        Button1.Visible = Check()
    End Sub
End Class