فشرده کردن فایل ها و بازکردن آنها با استفاده از 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()