فشرده کردن فایل ها و بازکردن آنها با استفاده از GZipStream

Imports System.IO
Imports System.IO.Compression

ساخت یک فایل فشرده:

Dim gzOut As New GZipStream(File.Create("data.zip"), CompressionMode.Compress)
Dim sw As New StreamWriter(gzOut)
For i As Integer = 1 To 999
     sw.Write("Hello, World! ")
Next
sw.Close()
gzOut.Close()

برای خواندن و باز کردن فایل های فشرده نیز مانند کد های پایین عمل میکنیم:

Dim gzIn As New GZipStream(File.OpenRead("data.zip"), CompressionMode.Decompress)
Dim sr As New StreamReader(gzIn)
MsgBox(sr.ReadToEnd())
sr.Close()
gzIn.Close()