How to use GzipStream class to compress a file?

How to use GzipStream class to compress a file?

Rating:

The steps to use GzipStream class to compress a file are as follows:

1. Import the following namespaces.
   
   Imports System.IO
   Imports System.IO.Compression
   
   
2. Provide a file name that is to be compressed as follows:
   
   Dim filename As String= New String(@"C:\Myapp emp\TestFile.txt")
   
   
3. Create a FileStream object as follows:
   
   Dim file As FileStream = New FileStream(filename, FileMode.Open, FileAccess.Read, FileShare.Read)
   
   
4. Create a buffer as follows:
   
   Dim buffer(file.Length) As Byte
   Dim count As Integer
   count = file.Read(buffer, 0, buffer.Length)
   file.Close()
   
   
5. Create a MemoryStream object as follows:
   
   Dim ms As MemoryStream = New MemoryStream()
   
   
6. Create a GzipStream object as follows:
   
   Dim mycompress As GZipStream= New GZipStream(ms, CompressionMode.Compress, true)
   
   
7. Compress the file.
   
   mycompress.Write(buffer, 0,buffer.Length)
   
   
8. Close the GzipStream class.
   
   mycompress.Close()
   
   
9. Display the result.
   
   Console.WriteLine("Original size: {0}, Compressed size: {1}", buffer.Length, ms.Length)
   

Rating: