VB.Net/File Directory/GZipStream

Compress

  
Imports System.IO
Imports System.Text
Imports System.IO.rupression
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.rupress)
        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.ruputer.FileSystem.GetFileInfo("c:\nocompress").Length & _
          " bytes to " & _
          My.ruputer.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