Einzelne Datei aus einem ZIP-Archiv löschen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Einzelne Datei aus einem ZIP-Archiv löschen

    Hallo Leute,

    ZIP Archive aus einem Ordner (mit Unterordnern) erstellen und wieder zurück entpacken ist nicht das Problem. Entsprechende Codeschnipsel findet man überall im Netz.

    Ich stand nun aber vor der Aufgabe einzelne Dateien aus einem ZIP-Archiv zu entfernen. Im Speziellen die mit der Endung .exe, .dll und .msi.
    Zuerst war dieser Eintrag als Frage gedacht, ich bin jedoch im Laufe des Postings selbst drauf gekommen.

    Folgenden Code habe ich mir dafür zurechtgeschrieben, welchen ich Euch nicht vorenthalten möchte:
    Sollte er es "wert" sein, dann bitte in die Tips & Tricks verschieben.

    VB.NET-Quellcode

    1. Dim zipPath As String ="c:\test.zip"
    2. Dim Zaehler As Integer = 0
    4. Using archive As ZipArchive = ZipFile.Open(zipPath, ZipArchiveMode.Update) 'ZipFile.OpenRead(zipPath)
    5. Dim GefundeneDatei(archive.Entries.Count + 1) As Boolean
    6. For Each entry As ZipArchiveEntry In archive.Entries
    7. If entry.FullName.EndsWith(".exe", StringComparison.OrdinalIgnoreCase) Or entry.FullName.EndsWith(".msi", StringComparison.OrdinalIgnoreCase) Or entry.FullName.EndsWith(".dll", StringComparison.OrdinalIgnoreCase) Then
    8. 'entry.Delete() 'würde eine Fehlermeldung bringen, da die Each Schleife neu initialisiert würde
    9. GefundeneDatei(Zaehler) = True
    10. End If
    11. Zaehler += 1
    12. Next
    14. 'Hier alle gefundenen Dateieinträge durchgehen und löschen
    15. 'Durch das Löschen verschiebt sich der entry-Wert um eines nach oben (negativ).
    16. Dim DateiIndex As Integer = 1
    17. For i As Integer = 1 To Zaehler
    18. If GefundeneDatei(i) = True Then
    19. 'MsgBox(archive.Entries(DateiIndex).FullName)
    20. archive.Entries(DateiIndex).Delete()
    21. Else
    22. DateiIndex += 1
    23. End If
    24. Next i
    25. End Using

    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    probierts auch mal so:

    VB.NET-Quellcode

    1. Dim zipPath As String = "c:\test.zip"
    2. Using archive As ZipArchive = ZipFile.Open(zipPath, ZipArchiveMode.Update)
    3. With archive.Entries
    4. For i = .Count - 1 To 0 Step -1
    5. With .item(i)
    6. If .name.EndsWith(".exe") OrElse .name.endswith("dll") Then
    7. .delete()
    8. End If
    9. End With
    10. Next
    11. End With
    12. End Using
    (ungetestet)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Danke für die (funktionierende) Kurzform :thumbsup:
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

Facebook