Dim selection = zip1.SelectEntries("*.*", "META-INF") For x = selection.Count - 1 To 0 Step -1 Dim e As ZipEntry = selection(x) zip.RemoveEntry(e.FileName) Next
Dim Threshold As New String("META-INF") Using zip As ZipFile = ZipFile.Read("C:\Users\" + GetUserName + "\AppData\Roaming\MCqTools\Mod_p\editor.zip") Dim MarkedEntries As New System.Collections.Generic.List(Of ZipEntry) Dim e As ZipEntry For Each e In zip If (e.IsDirectory = Threshold) Then MarkedEntries.Add(e) End If Next Dim folderMETA As ZipEntry For Each zombie In MarkedEntries zip.RemoveEntry(folderMETA) Next zip.Save() End Using
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)