Home
Search
 
What's New
Index
Books
Links
Q & A
Newsletter
Banners
 
Feedback
Tip Jar
 
C# Helper...
 
XML RSS Feed
Follow VBHelper on Twitter
 
 
 
MSDN Visual Basic Community
 
 
 
 
 
TitleCompress the folders within a folder into a Zip file in Visual Basic 2005
DescriptionThis example shows how to compress the folders within a folder into a Zip file in Visual Basic 2005.
KeywordsZip, compress, folder, compress folder, compressed folder, compression, Visual Basic 2005
CategoriesAlgorithms, Miscellany, Files and Directories
 
This is one of the few examples on the VB Helper Web site that usees someone else's class. This example uses the CompressedFolder class by Microsoft MVP Eduardo A. Morcillo (see the code for his email address and Web page).

When you click the Zip button, the program creates a DirectoryInfo object representing the parent directory. It uses the DirectoryInfo object's GetDirectories method to loop through the parent's subdirectories.

For each subdirectory, the program adds ".zip" to the subdirectory name to get the name that the zip file should have in the parent directory. It creates a CompressedFolder object representing the Zip file and compressed the subdirectory into it.

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

 
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
 
 
Copyright © 1997-2010 Rocky Mountain Computer Consulting, Inc.   All rights reserved.
  Updated