ZIP 파일 만들기

네크 2014.06.15 22:34:10 *: 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