VBScript

Transition from ZipEntry.NextEntry to ZipEntry.GetNext

Provides instructions for replacing deprecated NextEntry method calls with GetNext. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' ------------------------------------------------------------------------
' The NextEntry method is deprecated.
' See below or code showing how to rewrite using EntryAt/GetNext

set zip = CreateObject("Chilkat.Zip")

success = zip.OpenZip("qa_data/zips/xml_files.zip")
If (success <> 1) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

' entry is a Chilkat.ZipEntry
Set entry = zip.FirstEntry()
If (zip.LastMethodSuccess = 0) Then
    outFile.WriteLine("This zip archive is empty.")
    WScript.Quit
End If

finished = 0
Do While finished = 0

    If (entry.IsDirectory = 0) Then
        outFile.WriteLine(entry.FileName)
    Else
        outFile.WriteLine("(directory) " & entry.FileName)
    End If

    ' next is a Chilkat.ZipEntry
    Set next = entry.NextEntry()
    If (entry.LastMethodSuccess = 0) Then
        finished = 1
    End If

    ' entry is a Chilkat.ZipEntry
    Set entry = next
Loop

zip.CloseZip 

outFile.WriteLine("----")

' ------------------------------------------------------------------------
' Do the equivalent using EntryAt/GetNext.

success = zip.OpenZip("qa_data/zips/xml_files.zip")

set ze = CreateObject("Chilkat.ZipEntry")
success = zip.EntryAt(0,ze)

entryValid = 1
Do While entryValid = 1

    If (ze.IsDirectory = 0) Then
        outFile.WriteLine(ze.FileName)
    Else
        outFile.WriteLine("(directory) " & ze.FileName)
    End If

    entryValid = ze.GetNext()
Loop

zip.CloseZip 

outFile.Close