Zippe filer dynamisk

Hent SharpZiplib og brug det.

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

eksempel på brug:

using System;
using System.IO;
using ICSharpCode.SharpZipLib.Zip;

class TestClass
{
    public const int N = 100;
    public static void Main(string[] args)
    {
        ZipOutputStream zos = new ZipOutputStream(new FileStream(@"C:\Test.zip", FileMode.Create));
        for(int i = 0; i < N; i++)
        {
            FileStream fs = new FileStream(@"C:\Test.doc", FileMode.Open);
            byte[] b = new byte[fs.Length];
            fs.Read(b, 0, b.Length);
            fs.Close();
            ZipEntry ze = new ZipEntry("Test" + i + ".doc");
            zos.PutNextEntry(ze);
            zos.Write(b, 0, b.Length);
        }
        zos.Finish();
        zos.Close();
    }
}

Hej Arne,

Tak - det prøver jeg :-)

Nu kører jeg vb.net, så jeg formoder at koden vil se sådan her ud:

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

Class TestClass
    Public const Integer N = 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
        For  i = 0 To  N - 1  Step  i + 1
            Dim fs As FileStream =  New FileStream("C:\Test.doc",FileMode.Open)
            Dim b() As Byte =  New Byte(fs.Length) {}
            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)
        Next
        zos.Finish()
        zos.Close()
    End Sub
End Class

Eller? :-)

Smid et svar..

jep

og så skal det jo flyttes fra en console app kontekst til en web app kontekst

og svar