Comprimir y Descomprimir archivos en .NET

Public Class CompresionArchivos

Public Shared Sub ComprimirArchivos(archivoEntrada As String, archivoSalida As String)

Using SourceFile As FileStream = File.OpenRead(archivoEntrada)

Using DestFile As FileStream = File.Create(archivoSalida)

Using CompStream As GZipStream = New GZipStream(DestFile, CompressionMode.Compress)

Dim data(SourceFile.Length) As Byte

SourceFile.Read(data, 0, data.Length)

CompStream.Write(data, 0, data.Length)

End Using

End Using

End Using

End Sub

Public Shared Sub DescomprimirArchivos(archivoEntrada As String, archivoSalida As String)

Using SourceFile As FileStream = File.OpenRead(archivoEntrada)

Using DestFile As FileStream = File.Create(archivoSalida)

Using CompStream As GZipStream = New GZipStream(DestFile, CompressionMode.Decompress)

Dim data As Integer

data = CompStream.ReadByte()

While (data <> -1)

DestFile.WriteByte(CByte(data))

data = CompStream.ReadByte

End While

End Using

End Using

End Using

End Sub

http://carloslone.wordpress.com/2007/08/27/comprimiendo-archivos-en-net-20/