Replace a File within a Zip

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Demonstrates how to replace a file within a .zip

Dim zip As New Chilkat.Zip()


Dim success As Boolean

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


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



Dim entry As Chilkat.ZipEntry

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

If (Not (entry Is Nothing )) Then

    zip.DeleteEntry(entry)


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


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


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

Else
    TextBox1.Text = TextBox1.Text & "Entry not found." & vbCrLf
    TextBox1.Refresh()
End If