File Directory ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. File Directory
  4. Decompressing a file using DeflateStream (VB)
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.IO.Compression" %>


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim filename As String = Server.MapPath("Data.zip")
        Dim infile As FileStream = File.OpenRead(filename)
        Dim deflateStream As New DeflateStream(infile, CompressionMode.Decompress)
        Dim buffer(infile.Length + 100) As Byte
        Dim offset As Integer = 0
        Dim totalCount As Integer = 0
        While True
            Dim bytesRead As Integer = deflateStream.Read(buffer, offset, 100)
            If bytesRead = 0 Then
                Exit While
            End If
            offset += bytesRead
            totalCount += bytesRead
        End While
        Dim outfile As FileStream = File.Create(Path.ChangeExtension(filename, "txt"))
        outfile.Write(buffer, 0, buffer.Length)
        outfile.Close()
    End Sub



    Untitled Page