CompressedFolder object

[nandagopal]

Code Select Expand

Private Sub btnZip_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnZip.Click
    Dim di As New DirectoryInfo(txtFolder.Text)
    Dim file_name As String = di.FullName & ".zip"

    Using cf As New CompressedFolder(file_name)
        cf.CompressFile(di.FullName)
    End Using

    MessageBox.Show("Done", "Done", MessageBoxButtons.OK, _
        MessageBoxIcon.Information)
End Sub