Zipping and Unzipping Files Using Vb.Net

Set a Reference to the Following .Net Component:
vjslib

Classes to Import:

Imports System.IO
Imports java.io
Imports java.util
Imports java.util.zip
Imports System.Collections.Generic

To Zip the Files:

Public Sub Zip(ByVal zipFileName As String, ByVal sourceFiles As List(Of String))
' Create an output zip file.
Dim filOpStrm As New FileOutputStream(zipFileName, False)
Dim zipOpStrm As New ZipOutputStream(filOpStrm)

' Add the files by reading from the input file, and writing through the
' Zip compression routines.
For Each strFilName As String In sourceFiles
Dim filIpStrm As New FileInputStream(strFilName)
Dim ze As New ZipEntry(Path.GetFileName(strFilName))

zipOpStrm.putNextEntry(ze)

Dim buffer As SByte() = New SByte(1023) {}

Dim len As Integer = 0

' Continue to write the buffer until the end of the data.
While len >= 0
len = filIpStrm.read(buffer)
If len >= 0 Then
zipOpStrm.write(buffer, 0, len)
End If
End While

filIpStrm.close()
Next

' Close the streams.
zipOpStrm.closeEntry()
zipOpStrm.close()
filOpStrm.close()
End Sub

To UnZip the Files:

Private Shared Function GetZipFiles(ByVal zipfil As ZipFile) As List(Of ZipEntry)
Dim lstZip As New List(Of ZipEntry)()
Dim zipEnum As Enumeration = zipfil.entries()
While zipEnum.hasMoreElements()
Dim zip As ZipEntry = DirectCast(zipEnum.nextElement(), ZipEntry)
lstZip.Add(zip)
End While

Return lstZip
End Function

Public Shared Sub Unzip(ByVal zipFileName As String, ByVal destinationPath As String)
Dim zipfile As New ZipFile(zipFileName)
Dim zipFileList As List(Of ZipEntry) = GetZipFiles(zipfile)

For Each file As ZipEntry In zipFileList
If Not file.isDirectory() Then
Dim s As InputStream = zipfile.getInputStream(file)
Try
Dim fileName As String = file.getName()
Dim directoryName As String = Path.Combine(destinationPath, Path.GetDirectoryName(fileName))

If Not Directory.Exists(directoryName) Then
Directory.CreateDirectory(directoryName)
End If
Dim outputName As String = Path.Combine(directoryName, Path.GetFileName(fileName))
Dim dest As New FileOutputStream(outputName)
Try
Dim len As Integer = 0
Dim buffer As SByte() = New SByte(7167) {}
While len >= 0
len = s.read(buffer)
If len >= 0 Then
dest.write(buffer, 0, len)
End If
End While
Finally
dest.close()
End Try
Finally

s.close()
End Try
End If
Next
End Sub