Запаковать файл в архив (.zip)

    Public Sub FileCompress(ByVal sourceFile As String, _
          ByVal destinationFile As String)
       ' ----- Decompress a previously compressed string.
       '       First, create the input file stream.
       Dim sourceStream As New FileStream( _
          sourceFile, FileMode.Open, FileAccess.Read)
 
       ' ----- Create the output file stream.
       Dim destinationStream As New FileStream( _
       destinationFile, FileMode.Create, FileAccess.Write)
 
       ' ----- Bytes will be processed by a compression
       '       stream.
       Dim compressedStream As New GZipStream( _
          destinationStream, CompressionMode.Compress, True)
 
       ' ----- Process bytes from one file into the other.
       Const BlockSize As Integer = 4096
       Dim buffer(BlockSize) As Byte
       Dim bytesRead As Integer
       Do
          bytesRead = sourceStream.Read(buffer, 0, BlockSize)
          If (bytesRead = 0) Then Exit Do
          compressedStream.Write(buffer, 0, bytesRead)
       Loop
 
       ' ----- Close all the streams.
       sourceStream.Close( )
       compressedStream.Close( )
       destinationStream.Close( )
    End Sub

    Public Sub FileDecompress(ByVal sourceFile As String, _
          ByVal destinationFile As String)
       ' ----- Compress the entire contents of a file, and
       '       store the result in a new file. First, get
       '       the files as streams.
       Dim sourceStream As New FileStream( _
          sourceFile, FileMode.Open, FileAccess.Read)
       Dim destinationStream As New FileStream( _
          destinationFile, FileMode.Create, FileAccess.Write)
 
       ' ----- Bytes will be processed through a
       '       decompression stream.
       Dim decompressedStream As New GZipStream( _
          sourceStream, CompressionMode.Decompress, True)
 
       ' ----- Process bytes from one file into the other.
       Const BlockSize As Integer = 4096
       Dim buffer(BlockSize) As Byte
       Dim bytesRead As Integer
       Do
          bytesRead = decompressedStream.Read(buffer, _
             0, BlockSize)
          If (bytesRead = 0) Then Exit Do
          destinationStream.Write(buffer, 0, bytesRead)
       Loop
 
       ' ----- Close all the streams.
       sourceStream.Close( )
       decompressedStream.Close( )
       destinationStream.Close( )
    End Sub