VB.NET
* Imports System.IO
Imports System.IO.Compression

Module Module1
Sub Main()

Dim Gzip As New GZipStream(File.Create("C:\Test.zip"), CompressionMode.Compress)

Dim SW As New StreamWriter(Gzip)

For i As Double = 0 To 1000
SW.WriteLine("집파일만들기")
Next

SW.Close()
Gzip.Close()


End Sub


End Module