Private Function ReadAllBytesFromStream(stream As Stream, buffer() As Byte) As Integer
		' Use this method is used to read all bytes from a stream.
		Dim offset As Integer = 0
		Dim totalCount As Integer = 0
		While True
			Dim bytesRead As Integer = stream.Read(buffer, offset, 100)
			If bytesRead = 0 Then
				Exit While
			End If
			offset += bytesRead
			totalCount += bytesRead
			Response.Write("number of bytes read: " & totalCount & "<BR>")
		End While
		Return totalCount
	End Function 'ReadAllBytesFromStream

	Private Sub DeflateDecompress(filename As String)
        Dim infile As FileStream
		Try	
			infile = New FileStream(filename, FileMode.Open, FileAccess.Read, FileShare.Read)
			Dim buffer(infile.Length - 1) As Byte
			Dim ms As New MemoryStream()
			Dim zipStream As New DeflateStream(ms, CompressionMode.Decompress)
			Dim decompressedBuffer(buffer.Length + 100) As Byte
			' Use the ReadAllBytesFromStream to read the stream.
			Dim totalCount As Integer = ReadAllBytesFromStream(zipStream, decompressedBuffer)
			Response.Write("Decompressed " & totalCount & " bytes"&"<BR>")
			zipStream.Close()
		Catch e As Exception
            Response.Write ("Error: The file being read contains invalid data.<BR>")
        End Try
    End Sub 'DeflateCompressDecompress
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim nn As Long
        Dim fi As String 
		For nn = 1 To 30
			fi = Server.MapPath("~") & "myfolder\" & CStr(nn) & ".txt.gz"
			If File.Exists(fi) Then
				DeflateDecompress(fi)
			Else
				Response.Write("File " & fi & " does not exists!" & "<BR>")
				Exit For
			End If
		Next nn
    End Sub