File Directory ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. File Directory
  4. Compressing a file using GZipStream (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("TextFile.txt")
        Dim infile As FileStream = File.OpenRead(filename)
        Dim buffer(infile.Length) As Byte
        infile.Read(buffer, 0, buffer.Length)
        infile.Close()
        Dim outfile As System.IO.FileStream = File.Create(Path.ChangeExtension(filename, "zip"))
        Dim gzipStream As New GZipStream(outfile, CompressionMode.Compress)
        gzipStream.Write(buffer, 0, buffer.Length)
        gzipStream.Close()
    End Sub



    Untitled Page