Lave ZIP-filer prgramatisk med undermapper

<ole>

Du kan bruge Shell32

/mvh
</bole>

Det betyder så at jeg skal gemme de embeded resource filer til disken og så lave zip-filen efterfølgende ?

Er der ikke en pænere måde, hvor man ikke laver midlertidige filer ?

Du kan prøve at kikke på klassen ZipArchive

Det har jeg gjort, men kan ikke blive klog på om den kan med undermapper eller hvordan jeg skulle gøre det...

Der findes ikke mapper i en zip-fil. Der er filer i form af navngivne blokke af binære data - og en liste over disse filers stier. Mapperne bliver først skabt ved udpakningen

Njahhh ... to forskellige variabler, selvfølgelig  =)

*ROTFL*



Kode og håndbold er en dårlig combo  *D

he he

Kigger på det og vender tilbage. Tak

Så fik jeg tid til et eksempel  =)

PS: Husk en reference til System.IO.Compression

Det virker perfekt.
Men hvad med et billede jeg har som en embedded ressource ?

Who cares ... vi er i finalen!  *D

Sorry, det har ikke umiddelbart noget bud på  :o|

Eksempel med baade text og binary entries:

Imports System
Imports System.IO
Imports System.IO.Compression

Namespace E
    Public Class Program
        Private Const REP As Integer = 100
        Public Shared Sub Main(args As String())
            Dim text As String = "This is a little test !!!!"
            Dim buf As Byte() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 }
            Using fs As New FileStream("C:\work\sysiocmp.zip", FileMode.Create, FileAccess.Write)
                Using za As New ZipArchive(fs, ZipArchiveMode.Create)
                    Dim tzae As ZipArchiveEntry = za.CreateEntry("xxx/test.txt")
                    Using sw As New StreamWriter(tzae.Open())
                        For i As Integer = 0 To REP - 1
                            sw.WriteLine(text)
                        Next
                    End Using
                    Dim bzae As ZipArchiveEntry = za.CreateEntry("xxx/test.bin")
                    Using s As Stream = bzae.Open()
                        For i As Integer = 0 To REP - 1
                            s.Write(buf, 0, buf.Length)
                        Next
                    End Using
                End Using
            End Using
        End Sub
    End Class
End Namespace

Og det er med vilje at jeg bruger / fremfor \

Samme kode med SharpZipLib:

Imports System
Imports System.IO

Imports ICSharpCode.SharpZipLib.Zip

Namespace E
    Public Class Program
        Private Const REP As Integer = 100
        Public Shared Sub Main(args As String())
            Dim text As String = "This is a little test !!!!"
            Dim buf As Byte() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
            Using fs As New FileStream("C:\work\shrpzplb.zip", FileMode.Create, FileAccess.Write)
                Using zos As New ZipOutputStream(fs)
                    Dim tze As New ZipEntry("xxx/test.txt")
                    zos.PutNextEntry(tze)
                    Dim sw As New StreamWriter(zos)
                    For i As Integer = 0 To REP - 1
                        sw.WriteLine(text)
                    Next
                    sw.Flush() ' do not attempt to close
                    Dim bze As New ZipEntry("xxx/test.bin")
                    zos.PutNextEntry(bze)
                    For i As Integer = 0 To REP - 1
                        zos.Write(buf, 0, buf.Length)
                    Next
                End Using
            End Using
        End Sub
    End Class
End Namespace

SharpZipLib virker saa med alle .NET versioner (den anden kraever .NET 4.5) men kraver saa til gengaeld en ekstern assembly.

Hvordan gemmer man så en fil gemt som ressource som en entry i zip-filen ?

Det er noget i denne blok

Dim bzae As ZipArchiveEntry = za.CreateEntry("xxx/test.bin")
Using s As Stream = bzae.Open()
  For i As Integer = 0 To REP - 1
      s.Write(buf, 0, buf.Length)
  Next
End Using

Tænker at det er noget med denne kommando jeg skal bruge:
My.Resources.ResourceManager.GetStream("tmp.jpg")
men kan ikke få det koblet sammen...

Noget a la:

Dim rs As Stream = My.Resources.ResourceManager.GetStream("tmp.jpg")
Dim bzae As ZipArchiveEntry = za.CreateEntry("xxx/test.bin")
Using s As Stream = bzae.Open()
  Dim n As Integer = rs.Read((buf, 0, buf.Length)
  s.Write(buf, 0, n)
End Using

du boer dog nok have en while loekke omkring Read og Write

Jeg har aldrig rigtig arbejder med streams før, så det med while løkken må du gerne forklare nærmere.

Har du et link til et sted der forklarer, hvorfor buf skal være:
Dim buf As Byte() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}

som du skriver, men olebole bruger:

Dim startBuffer() As Byte = {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

Min var bare for demo.

Du skal bruge:

Dim buf As Byte(10240)

eller tilsvarende

Dim rs As Stream = My.Resources.ResourceManager.GetStream("tmp.jpg")
virker åbenbart heller ikke - rs er tom, selvom der er en fil med navn tmp.jpg som embedded ressource...

while skal vaere noget a la:

        Dim n As Integer
        n = rs.Read(b, 0, b.Length)
        While n > 0
            s.Write(b, 0, n)
            n = rs.Read(b, 0, b.Length)
        End While

Det med while løkken har jeg stadig ikke forstået, og Dim buf as Byte(10240) er ikke gyldigt.

Jeg er ret noob i dette, beklager den manglende forståelse :)

OK, så er løkken på plads - skrev min kommentar efter du havde svaret...

Har fået det til at virke ved at bruge GetManifestResourceStream i stedet. Det er vist noget med hvordan man tilføjer tilen som emdeded resource.
Bruger dog stadig
Dim buf As Byte() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
da Dim buf as Byte(10240) ikke virker.

Smid et svar begge to, så kan i deles om point

Dim buf As Byte() = New Byte(10240 - 1)

Dim buf As Byte() = New Byte(10240)

og svar

Dim buf As Byte() = New Byte(10240)
virker ikke da Byte ikke har nogen constructor ?

Dim buf As Byte() = New Byte(10240) { }

eller

Dim buf(1023) As Byte

Tak :)