Private Shared Sub ZipReaderExample()

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

      Dim destinationFolder As String = "D:\UnzipToFolder"

      Dim password As String = "password"



      Dim bufferSize As Integer = 64 * 1024

      Dim buffer(bufferSize - 1) As Byte



      ' Create a stream for the zip file

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

        ' Create a local header object

        Dim localHeader As New ZipItemLocalHeader()



        ' Create the ZipReader object around the stream

        Using zipReader As New ZipReader(zipFileStream)

          ' Optional. Provide the default password for encrypted items in the archive

          zipReader.EncryptionPassword = password



          ' Optional. Subscribe to available events

          AddHandler zipReader.ByteProgression, AddressOf OnByteProgression

          AddHandler zipReader.InvalidPassword, AddressOf OnInvalidPassword



          ' While the reader finds local headers

          Do While zipReader.ReadItemLocalHeader(localHeader) IsNot Nothing

            ' The 'FileName' property contains the sub-folders and filename

            Dim outputPath As String = destinationFolder & localHeader.FileName

            Dim outputFolder As String = Path.GetDirectoryName(outputPath)



            ' Make sure the output folder exists

            Directory.CreateDirectory(outputFolder)



            ' If the item isn't a folder entry

            If (Not localHeader.IsFolder) Then

              ' Create/overwrite an output file using our calculated filename

              Using outputFileStream As New FileStream(outputPath, FileMode.Create, FileAccess.Write, FileShare.None)

                ' Have the reader read the item data and write it to the stream using our buffer

                zipReader.ReadItemData(outputFileStream, buffer, 0, bufferSize)

              End Using

            End If

          Loop

        End Using

      End Using

    End Sub



    Private Shared Sub OnInvalidPassword(ByVal sender As Object, ByVal e As ZipReaderInvalidPasswordEventArgs)

      ' TODO: We have access to the current item being unzipped. We can report it's name, etc

      Dim currentItem As ZipItemLocalHeader = e.ZipItemLocalHeader



      ' TODO: We're given the password that failed. We can report it, etc

      Dim oldPassword As String = e.OldPassword



'       If 'e.NewPassword' is set to null or an empty string, or 'e.Abort' is set to true,

'      a ZipReaderException will be thrown for failure to decrypt the item.

'      Since items can't be skipped, the entire unzip process will be canceled.

'       

'      When the event is triggered, 'e.NewPassword' is set to an empty string and 'e.Abort' is set

'      to false. 



      ' TODO: We have to supply a new password.

      ' If that new password is invalid, the event will be triggered again

      e.NewPassword = "Some New Password"



      ' TODO: We can ask the entire unzip operation to be aborted

      e.Abort = True

    End Sub



    Private Shared Sub OnByteProgression(ByVal sender As Object, ByVal e As ZipReaderByteProgressionEventArgs)

      ' TODO: We have access to the current item being unzipped. We can report it's name, etc

      Dim currentItem As ZipItemLocalHeader = e.ZipItemLocalHeader



      ' TODO: We're given the current amount of bytes unzipped for the item. We can report it, etc

      Dim bytesProcessed As Long = e.BytesProcessed



'       Do not assume that e.UncompressedSize and e.Percent will contain useful values.

'      Since ZipReader doesn't seek in the archive, it cannot always know the uncompressed

'      size in advance. 

    End Sub