Replace a File within a Zip

Demonstrates how to replace a file within a .zip

Download Chilkat Zip ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set zip = CreateObject("Chilkat.Zip2")

'  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
    WScript.Quit
End If

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

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

If (Not (entry Is Nothing )) Then

    zip.DeleteEntry entry

    saveExtraPath = 0
    success = zip.AppendOneFileOrDir("c:/temp/HelloWorld123.txt",saveExtraPath)
    If (success <> 1) Then
        MsgBox zip.LastErrorText
        WScript.Quit
    End If

    success = zip.WriteZipAndClose()
    If (success <> 1) Then
        MsgBox zip.LastErrorText
        WScript.Quit
    End If

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

Else
    outFile.WriteLine("Entry not found.")
End If

outFile.Close