Aufruf der zip sub ?

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Aufruf der zip sub ?

    hallo liebe community :)
    ich wollte wissen, wie man folgendes aufruft : (ich möchte ein Picturebox image comprimieren...)

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Diese Funktion komprimiert Dateien zu einem ZIP-Archiv.
    3. ''' </summary>
    4. ''' <param name="InputFiles">Die Liste mit Dateien die komprimiert werden soll.</param>
    5. ''' <param name="FileName">Der Dateiname der ZIP-Datei (ohne Pfad).</param>
    6. ''' <param name="OutputDir">Das Ausgabeverzeichnis wo die ZIP Datei gespeichert werden soll.</param>
    7. ''' <remarks></remarks>
    8. Dim bildanzahhll As String = "1"
    9. Public Sub CompressFiles(ByVal InputFiles As List(Of String), ByVal FileName As String, ByVal OutputDir As String)
    11. OutputDir = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "Pfart"
    12. FileName = bildanzahhll
    13. bildanzahhll += "1"
    14. Dim ZFS As New FileStream(OutputDir & "\" & FileName, FileMode.Create)
    15. Dim ZOut As New Zip.ZipOutputStream(ZFS)
    16. ZOut.SetLevel(6)
    17. Dim ZipEntry As Zip.ZipEntry
    19. Dim Buffer(4096) As Byte
    20. Dim ByteLen As Integer
    21. Dim FS As FileStream
    24. For i As Integer = 0 To InputFiles.Count - 1
    25. 'ZipEntry erstellen
    26. ZipEntry = New Zip.ZipEntry(Path.GetFileName(InputFiles(i)))
    27. ZipEntry.DateTime = Date.Now
    29. 'Eintrag hinzufügen
    30. ZOut.PutNextEntry(ZipEntry)
    32. 'Datei in den Stream schreiben
    33. FS = New FileStream(InputFiles(i), FileMode.Open, FileAccess.Read, FileShare.Read)
    34. Do
    35. ByteLen = FS.Read(Buffer, 0, Buffer.Length)
    36. ZOut.Write(Buffer, 0, ByteLen)
    37. Loop Until ByteLen <= 0
    38. FS.Close()
    39. Next
    41. ZOut.Finish()
    42. ZOut.Close()
    43. ZFS.Close()
    44. End Sub


    danke schonmal im Foraus :)

    VB.NET-Quellcode

    1. Public Sub CompressFiles(ByVal InputFiles As List(Of String), ByVal FileName As String, ByVal OutputDir As String)


    1 Parameter: Anzahl Dateien die Komprimiert werden ( siehe Files aufliestung)
    2 Parameter: Name der Komprimierte Datei
    3 Parameter: Verzeichnis in dem Komprimierte Datei abgelegt wird

    Du kannst die "FileName" und "OutputDir sparen in dem du "SaveFileDialog / OpenFileDialog" verwendest.