Private Shared Sub ZipWriterExample()

      Dim zipFilePath As String = "D:\RealTimeZipExamples\MyZipFile.zip"

      ' NOTE: The trailing backslash is important, we use it below to build the paths in the zip archive

      Dim sourceFolder As String = "D:\ToZip\"



      ' Create a stream for a new zip file

      Using zipFileStream As New FileStream(zipFilePath, FileMode.Create, FileAccess.Write, FileShare.None)

'         Wrapping the ZipWriter object in a 'using' block will make sure the archive is closed

'         * properly after we're done adding content. If you use ZipWriter outside a 'using' block,

'         * make sure you call ZipWriter.CloseZipFile() to flush the archive's meta data

'         * to the output stream. 



        ' Create the ZipWriter object around the stream

        Using zipWriter As New ZipWriter(zipFileStream)

          Dim index As Integer

          Dim sourceFile As FileInfo

          Dim sourceFilenameInZip As String



'           As a convenience, ZipWriter offers the option to automatically close the output stream when

'             ZipWriter is closed. The behavior is disabled by default.

'         

'             In this example, we will not enable it because we are already closing the zip

'             file automatically in the 'using' block above. 

          'zipWriter.AllowOutputStreamClosure = true;



'           Since we'll be adding many files in the archive, we'll create a work buffer

'             ahead of time and use it over and over again to avoid creating a new buffer

'             each time we read from a source file. 

          Dim bufferSize As Integer = 64 * 1024

          Dim buffer(bufferSize - 1) As Byte



'           Create a local header object that will be used to specify the path/filename in

'             the zip file and other options like compression and encryption. 

          Dim localHeader As New ZipItemLocalHeader()



'           Options can be set "globally" before zipping starts.

'             We will set the file name for each file inside the loop. The other 

'             options have default values that satisfy us:

'             The compression method is Deflated at a the 'Normal' compression level

'             No encryption.

'             No comment. 

          'localHeader.CompressionMethod = CompressionMethod.Deflated;

          'localHeader.CompressionLevel = CompressionLevel.Normal;

          'localHeader.EncryptionMethod = EncryptionMethod.WinZipAes;

          'localHeader.EncryptionPassword = "password";



          ' Compute the index where the base path ends, minus the trailing backslash

          index = sourceFolder.Length - 1



          ' Go through all the files in the source folder and its sub-folders

          For Each sourcePath As String In Directory.EnumerateFiles(sourceFolder, "*", SearchOption.AllDirectories)

            ' Get file information

            sourceFile = New FileInfo(sourcePath)



            ' Compute a relative path for the file consisting of the full path minus the base path in 'sourceFolder'

            sourceFilenameInZip = sourcePath.Substring(index)



            ' Assign the filename in zip in the header

            localHeader.FileName = sourceFilenameInZip



            ' Optional. Set the last write date/time in the header

            localHeader.LastWriteDateTime = sourceFile.LastWriteTime



            Try

              ' Open the current file for sequential reading

              Using sourceFileStream As Stream = New FileStream(sourcePath, FileMode.Open, FileAccess.Read, FileShare.Read, bufferSize, FileOptions.SequentialScan)

'                 If we make it here, the source file has been opened successfully. We can

'                   safely add the item to the zip archive. 



                ' Write the local header for the file in the archive

                zipWriter.WriteItemLocalHeader(localHeader)



                ' Write the entire stream's content to the archive, using the work buffer we created

                zipWriter.WriteItemData(sourceFileStream, buffer, 0, bufferSize)

              End Using

            Catch e1 As FileNotFoundException

'               We're unable to open the source file. We will simply skip it and continue to

'                 the next one. 



            Catch e2 As System.Security.SecurityException

'               We're unable to open the source file. We will simply skip it and continue to

'                 the next one. 

            Catch e3 As DirectoryNotFoundException

'               We're unable to open the source file. We will simply skip it and continue to

'                 the next one. 

            Catch e4 As UnauthorizedAccessException

'               We're unable to open the source file. We will simply skip it and continue to

'                 the next one. 

            Catch e5 As PathTooLongException

'               We're unable to open the source file. We will simply skip it and continue to

'                 the next one. 

            End Try

          Next sourcePath

          

          ' OPTIONAL: A global comment for the zip archive can be set when closing the archive. By default, there is no comment.

          'Dim endHeader As New ZipEndHeader("Dynamically generated in <unknown> seconds")

          'zipWriter.CloseZipFile(endHeader)



          ' Because we are in a 'using' block, ZipWriter.Dispose() will take care of calling

          ' ZipWriter.CloseZipFile() for us if we don't do it here.



          '  When using ZipWrite outside of a 'using' block, ZipWriter.CloseZipFile() MUST be

          '  called explicitly or the zip file will be incomplete and unusable.

        End Using

      End Using

    End Sub