Compress : GZipStream « File Directory « VB.Net

1. VB.Net
2. File Directory
3. GZipStream

Compress

   

Imports System.IO
Imports System.Text
Imports System.IO.Compression

Public Class MainClass

    Public Shared Sub Main()
        Dim fsNoCompress As New FileStream("c:\nocompress", FileMode.Create)
        Dim rNoCompress As New BinaryWriter(fsNoCompress)
        Dim fsCompress As New FileStream("c:\compress", FileMode.Create)
        Dim CompressStream As New GZipStream(fsCompress, CompressionMode.Compress)
        Dim rCompress As New BinaryWriter(CompressStream)
        For i As Integer = 1 To 10000
            Dim RandomString As String = "adsfadfadsf"
            rNoCompress.Write(RandomString)
            rCompress.Write(RandomString)
        Next
        ' Close both files.
        rNoCompress.Close()
        fsNoCompress.Close()

        rCompress.Close()
        fsCompress.Close()

        System.Console.WriteLine("Compressed data from " & _
          My.Computer.FileSystem.GetFileInfo("c:\nocompress").Length & _
          " bytes to " & _
          My.Computer.FileSystem.GetFileInfo("c:\compress").Length & _
          " bytes.")

        Dim fsRead As New FileStream("c:\compress", FileMode.Open)
        Dim DecompressStream As New GZipStream(fsRead, CompressionMode.Decompress)
        Dim r As New BinaryReader(DecompressStream)
        System.Console.WriteLine("The compressed data looks like this: " & r.ReadString())
        r.Close()
        fsRead.Close()

    End Sub
End Class

   
    
    
  

Related examples in the same category