Mega Code Archive
Compress
<![CDATA[
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
]]>