How to use the DeflateStream class to compress a file?

The steps to use the DeflateStream 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 empTestFile.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 DeflateStream object as follows:

   Dim mycompress As DeflateStream = New DeflateStream(ms, CompressionMode.Compress, true)
   

7. Compress the file as follows.

   mycompress.Write(buffer, 0,buffer.Length)

8. Close the DeflateStream class as follows:

   mycompress.Close()

9. Display the result.

   Console.WriteLine(“Original size: {0}, Compressed size: {1}”, buffer.Length, ms.Length)
   

• Previous Entry: What is TO_CHAR (datetime) function?
• Next Entry: How to create an e-mail?