Zip komprimering i VB.NET

Jeg bruger VS.NET 2005 Beta1.

http://www.icsharpcode.net/OpenSource/SharpZipLib/Default.aspx

Eksempel:

Imports System
Imports System.IO
Imports ICSharpCode.SharpZipLib.Zip

Class TestClass
    Public Const N As Integer = 100

    Public Shared Sub Main(ByVal args As String())
        Dim zos As ZipOutputStream = New ZipOutputStream(New FileStream("C:\Test.zip", FileMode.Create))
        Dim i As Integer = 0
        While i < N
            Dim fs As FileStream = New FileStream("C:\Test.doc", FileMode.Open)
            Dim b(fs.Length) As Byte
            fs.Read(b, 0, b.Length)
            fs.Close
            Dim ze As ZipEntry = New ZipEntry("Test" & i & ".doc")
            zos.PutNextEntry(ze)
            zos.Write(b, 0, b.Length)
            System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
        End While
        zos.Finish
        zos.Close
    End Sub
End Class

Takker... Det funker bare 100%... Og det gik stærkt.. :D

Og et lille tillægs spm. Findes der ikke et Zip "kompoent" så man ikke skal have DLL'en med? Eller man på en eller anden måde kan tag koden ind i ens program.

Det er jo en open source komponent, så du kan vel hente source koden og builde den ind
i din kode.

og et svar

Ok... Det vil jeg da prøve... takker for hjælpen... :D