(Visual Basic 6.0) Change a Filename before Unzipping
How to open a zip and modify the filename of one or more files within the zip before unzipping.
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim zip As New ChilkatZip
Dim success As Long
success = zip.OpenZip("test.zip")
If (success <> 1) Then
Debug.Print zip.LastErrorText
Exit Sub
End If
Dim entry As ChilkatZipEntry
Set entry = zip.GetEntryByName("hamlet.xml")
' Assume entry is non-null. If GetEntryByName failed
' to find the entry, it returns a null reference.
entry.FileName = "hamlet2.xml"
Set entry = zip.GetEntryByName("helloWorld.pl")
entry.FileName = "hw.pl"
' Now unzip to the "test" subdirectory, under our current
' working directory:
Dim numFilesUnzipped As Long
numFilesUnzipped = zip.Unzip("test")
If (numFilesUnzipped < 0) Then
Debug.Print zip.LastErrorText
Exit Sub
End If
' The filenames within the .zip are unchanged, but it unzipped
' test/hw.pl and test/hamlet2.xm
|
