ZIP 파일 만들기
*
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
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
이 게시물을
번호
제목
156
154
152
150
148
143
139