The parent directory

[nandagopal]

When it finishes, the program displays a list of the subdirectories it compressed.

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 txt As String = ""

    For Each sub_di As DirectoryInfo In di.GetDirectories()
        Dim file_name As String = sub_di.FullName & ".zip"
        Using cf As New CompressedFolder(file_name)
            txt &= vbCrLf & sub_di.FullName
            cf.CompressFile(sub_di.FullName)
        End Using
    Next sub_di

    txtFolders.Text = txt.Substring(vbCrLf.Length)
End Sub