Comprimir Directorios con C SharpLib en VISUAL BASIC.NET

[carlos_andres28]

Despues de buscar en Internet este item no puede encontrarlo asi que decidi hacerlo por mi propia cuenta. Lo he logrado no fue dificil.
Aqui dejo el fruto de mi trabajo para facilitarles la Vida
Este codigo comprime todo el contenido de las carpetas que se encuentren en la ruta donde de ejecuta nuestra aplicacion
EL CODIGO FUE DESARROLLADO CON VISUAL BASIC.NET 2005 Y C SHARPLIB
'------------------------------------------------------------------------------------
PRIVATE SUB COMPRIMIR()
Dim ACOMPRESO As ZipOutputStream
ACOMPRESO = New ZipOutputStream(IO.File.Create(C:\COMPRESO.ZIP"))
ACOMPRESO.SetLevel(9)
ACOMPRESO.Password = "HOLA"
Dim MISDIRECTORIOS() As String = IO.Directory.GetDirectories(Application.StartupPath )
For Each NDIRECTORIO As String In MISDIRECTORIOS
COMP_RECURSIVO(ACOMPRESO, NDIRECTORIO)
Next
ACOMPRESO.Finish()
ACOMPRESO.Close()
END SUB
'-----------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------

Private Sub COMP_RECURSIVO(ByRef AZIP As ZipOutputStream, ByVal DIRECTORIO As String)
Dim ENTZIP As ZipEntry
Dim MIARCHIVO As IO.FileStream
Dim ARCHIVOS() As String = IO.Directory.GetFiles(Application.StartupPath & "\" & DIRECTORIO)
For Each NARCHIVO As String In ARCHIVOS
MIARCHIVO = IO.File.OpenRead(Application.StartupPath & "\" & DIRECTORIO & NARCHIVO.Substring(NARCHIVO.LastIndexOf("\")))
Dim MIBUFFER(MIARCHIVO.Length - 1) As Byte
MIARCHIVO.Read(MIBUFFER, 0, MIBUFFER.Length)
ENTZIP = New ZipEntry(DIRECTORIO & NARCHIVO.Substring(NARCHIVO.LastIndexOf("\")))
ENTZIP.DateTime = Now
ENTZIP.Size = MIARCHIVO.Length
MIARCHIVO.Close()
AZIP.PutNextEntry(ENTZIP)
AZIP.Write(MIBUFFER, 0, MIBUFFER.Length)
Next
'----------------------------------------------------------------------
Dim MISDIRECTORIOS() As String = IO.Directory.GetDirectories(Application.StartupPath & "\" & DIRECTORIO)
For Each NDIRECTORIO As String In MISDIRECTORIOS
COMP_RECURSIVO(AZIP, DIRECTORIO & NDIRECTORIO.Substring(NDIRECTORIO.LastIndexOf("\")))
Next
End Sub