Hallo liebe Mitglieder,
ich habe folgendes Problem. Ich möchte mehr als eine Datei zippen können. Ich benutze den Memorystream, aber bisher schaffe ich es nur, eine Datei zu zippen. Ich habe ionic.zip und vb.net verwendet. Blick bei dem Thema einfach nicht richtig durch. Kann mir da jemand Helfen oder paar Tipps geben ?
Hier mein bisheriger Code:
ich habe folgendes Problem. Ich möchte mehr als eine Datei zippen können. Ich benutze den Memorystream, aber bisher schaffe ich es nur, eine Datei zu zippen. Ich habe ionic.zip und vb.net verwendet. Blick bei dem Thema einfach nicht richtig durch. Kann mir da jemand Helfen oder paar Tipps geben ?
Hier mein bisheriger Code:
VB.NET-Quellcode
- Public Function CreateZipFile(lZip As MemoryStream, zip As String)
- Using zipFile As New Ionic.Zip.ZipFile()
- Try
- Dim sPath As String = IO.Path.Combine(Application.UserAppDataPath, "DocumentCreator_TEMP")
- If Not IO.Directory.Exists(sPath) Then
- IO.Directory.CreateDirectory(sPath)
- End If
- Dim sFilename As String = $"{clsDocumentFilename.sSharedAusgabeDateiname}"
- sPath = IO.Path.Combine(sPath, sFilename)
- zipFile.AddEntry(zip, lZip.ToArray)
- zipFile.Save(sPath)
- Dim bData As Byte()
- Dim br As BinaryReader = New BinaryReader(System.IO.File.OpenRead(sPath))
- bData = br.ReadBytes(br.BaseStream.Length)
- Dim ms As MemoryStream = New MemoryStream(bData, 0, bData.Length)
- ms.Write(bData, 0, bData.Length)
- Return ms
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End Try
- Return Nothing
- End Using
- End Function
