Open Zip from URL (OpenFromWeb)

Open a .zip from a URL and unzip.

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

'  Downloads a .zip into memory and opens it.
success = zip.OpenFromWeb("http://www.chilkatsoft.com/testData/hamlet.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

'  It can be unzipped to disk:

fileCount = zip.Unzip("c:/temp")
If (fileCount < 0) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

'  Alternatively, individual entries may be unzipped into memory.
'  In this case, it is unzipped into a string:

addCR = 1
Set entry = zip.GetEntryByName("hamlet.xml")
If (Not (entry Is Nothing )) Then
    '  If the file has bare LF line endings, add the CR to get
    '  CRLF line endings.
    fileContents = entry.InflateToString(addCR)
    outFile.WriteLine(fileContents)
End If

outFile.Close