Compress Folders with Visual Basic and the SharpZipLib in VB.NET

End Sub

The next button click event handler contains the code used to gather up the marked files and zip them up to the destination folder set. The code will gather up the identified files, copy the files to a temporary folder inside the destination folder, zip them up, and then remove the temporary folder. This code is also annotated and you may review the notes that are contained within the code block, to read a description of what is happening at each stage in the progress.

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

' make sure there are files to zip

If lstFilePaths.Items.Count < 1 Then

MessageBox.Show("There are no files queued for the zip operation", "Empty File Set")

Return

End If

' make sure there is a destination defined

If txtSaveTo.Text = String.Empty Then

MessageBox.Show("No destination file has been defined.", "Save To Empty")

Return

End If

' display the message showing zip in progress

lblUpdate.Visible = True

lblUpdate.Refresh()

' name the zip file whatever the folder is named

' by splitting the file path to get the folder name

Dim sTemp As String() = txtSaveTo.Text.Split("\")

Dim sZipFileName As String = sTemp(sTemp.Length - 1).ToString()

' check to see if zipped file already exists

' user may rename it in the text box if it does.

Dim fi As FileInfo =

New FileInfo(txtSaveTo.Text + "\" + sZipFileName + ".zip")

If fi.Exists Then

' tell the user if the file already exists

Try

Dim sb As StringBuilder = New StringBuilder()

sb.Append("The file " + sZipFileName + " already exists. ")

sb.Append("You may rename it in the save to text box.")

MessageBox.Show(sb.ToString(), "Existing File Name")

txtSaveTo.Text = String.Empty

txtSaveTo.Focus()

Return

Catch ex As Exception

MessageBox.Show(ex.Message, "File Error")

Return

End Try

End If

fi = Nothing

' Check for the existence of the target folder and

' create it if it does not exist

If (Not System.IO.Directory.Exists(txtSaveTo.Text + "\TempZipFile\")) Then

Then

System.IO.Directory.CreateDirectory(txtSaveTo.Text +

"\TempZipFile\")

End If

' Set up a string to hold the path to the temp folder

Dim sTargetFolderPath As String = (txtSaveTo.Text + "\TempZipFile\")

' Process the files and move each into the target folder

Dim i As Integer

For i = 0 To lstFilePaths.Items.Count - 1

Dim filePath As String = lstFilePaths.Items(i).ToString()

Dim fi2 As FileInfo = New FileInfo(filePath)

If fi2.Exists Then

' move it to the folder

Try

fi2.CopyTo(sTargetFolderPath + fi2.Name, True)

Catch

' clean up if the operation failed

System.IO.Directory.Delete(sTargetFolderPath)

MessageBox.Show("Could not copy files to temp folder.", "File Error")

Return

End Try

End If

fi2 = Nothing

Next

' zip up the files

Try

lblUpdate.Visible = True

lblUpdate.Refresh()

Dim filenames As String() = Directory.GetFiles(sTargetFolderPath)

' Zip up the files - From SharpZipLib Demo Code

Dim s As ZipOutputStream = New

ZipOutputStream(File.Create(txtSaveTo.Text +

"\" + sZipFileName + ".zip"))

s.SetLevel(9) ' 0-9, 9 being the highest level of compression

Dim buffer() As Byte

ReDim buffer(4096)

Dim f As String

For Each f In filenames

Dim entry As ZipEntry = New ZipEntry(Path.GetFileName(f))

entry.DateTime = DateTime.Now

s.PutNextEntry(entry)

Dim fs As FileStream = File.OpenRead(f)

Dim sourceBytes As Integer = 1

Do Until (sourceBytes <= 0)

sourceBytes = fs.Read(buffer, 0, buffer.Length)

s.Write(buffer, 0, sourceBytes)

Loop

fs.Close()

Next

' clean up

s.Finish()

s.Close()

' remove the progress note

lblUpdate.Visible = False

' Notify user

MessageBox.Show("Zip file " + txtSaveTo.Text + " created.")

' empty everything

lstFilePaths.Items.Clear()

txtSaveTo.Text = String.Empty

txtAddFile.Text = String.Empty

' clean up files by deleting the temp folder and its content

System.IO.Directory.Delete(sTargetFolderPath, True)

Catch ex As Exception

MessageBox.Show(ex.Message.ToString(), "Zip Operation Error")

End Try

End Sub

The remaining code in the project is that used to terminate the application.

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnExit.Click

Application.Exit()

End Sub

That here wraps up the description of the code used in this project.

Summary

This example demonstrates zipping up a folder using the SharpZipLib; in this example, the interface is provided in the form of a stand alone desktop application. The same approach described in this project could be applied within the context of a large application, that may be required to gather up multiple files and zip them into a single zipped folder. As with all things, there are other ways to do this same sort of thing, however, given the availability of the SharpZipLib, this is a relatively simple process.