• Home
 · 
• Files/File Controls/Input/Output
 · 
• Compress And Decompress File Using GZipStream

Compress And Decompress File Using GZipStream

Compress And Decompress File Using GZipStream

API Declarations


.IO
.IO.Compression
.IO.Compression.GZipStream



Rate Compress And Decompress File Using GZipStream

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sourceFile As FileStream = File.OpenRead("D:\Gehan.txt")
        Dim destFile As FileStream = File.Create("D:\Gehan.gz")
        Dim compStream As New GZipStream(destFile, CompressionMode.Compress)

        Dim theByte As Integer = sourceFile.ReadByte()
        While theByte <> -1
            compStream.WriteByte(CType(theByte, Byte))
            theByte = sourceFile.ReadByte()
        End While
        compStream.Flush() : compStream.Close() : compStream.Dispose()
        destFile.Close() : destFile.Dispose()
        sourceFile.Close() : sourceFile.Dispose()

    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim sourceFile As FileStream = File.OpenRead("D:\Gehan.gz")
        Dim destFile As FileStream = File.Create("D:\Gehan.txt")
        Dim compStream As New GZipStream(sourceFile, CompressionMode.Decompress, True)

        Dim theByte As Integer = compStream.ReadByte()
        While theByte <> -1
            destFile.WriteByte(CType(theByte, Byte))
            theByte = compStream.ReadByte()
        End While
        compStream.Flush() : compStream.Close() : compStream.Dispose()
        destFile.Close() : destFile.Dispose()
        sourceFile.Close() : sourceFile.Dispose()

    End Sub

End Class