Replace a File within a Zip

Demonstrates how to replace a file within a .zip

Download Chilkat Zip ActiveX

Dim zip As New ChilkatZip2

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    Exit Sub
End If

success = zip.OpenZip("a.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    Exit Sub
End If

Dim entry As ChilkatZipEntry2

'  Locate the entry:
Set entry = zip.FirstMatchingEntry("*HelloWorld123.txt")

If (Not (entry Is Nothing )) Then

    zip.DeleteEntry entry

    Dim saveExtraPath As Long
    saveExtraPath = 0
    success = zip.AppendOneFileOrDir("c:/temp/HelloWorld123.txt",saveExtraPath)
    If (success <> 1) Then
        MsgBox zip.LastErrorText
        Exit Sub
    End If

    success = zip.WriteZipAndClose()
    If (success <> 1) Then
        MsgBox zip.LastErrorText
        Exit Sub
    End If

    MsgBox "Entry replaced and .zip re-written."

Else
    Text1.Text = Text1.Text & "Entry not found." & vbCrLf
    Text1.Refresh
End If