(VB.NET) Iterate over Matching Filenames

Iterates over files within a .zip that match a pattern. In this case, the pattern is "*.pem". This example will open a .zip containing files of type .txt, .cer, .pem, and possibly others, and will iterate over only the .pem files.

Chilkat .NET Downloads Chilkat .NET Assemblies Chilkat for .NET Core Chilkat for Mono

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim zip As New Chilkat.Zip

' Open a .zip containing PEM files, among other things..
Dim success As Boolean = zip.OpenZip("qa_data/certs/thawte-roots.zip")
If (success <> True) Then
    Debug.WriteLine(zip.LastErrorText)
    Exit Sub
End If


Dim entry As Chilkat.ZipEntry = zip.FirstMatchingEntry("*.pem")
If (zip.LastMethodSuccess <> True) Then
    Debug.WriteLine("No PEM entries found.")
    Exit Sub
End If


Dim nextEntry As Chilkat.ZipEntry
Dim pemStr As String

Dim bContinue As Boolean = True
While (bContinue = True)

    Debug.WriteLine("Entry: " & entry.FileName)

    ' Get the uncommpressed contents of the entry:
    pemStr = entry.UnzipToString(0,"utf-8")
    Debug.WriteLine(pemStr)

    nextEntry = entry.NextMatchingEntry("*.pem")
    bContinue = entry.LastMethodSuccess

    entry = nextEntry
End While