Open Zip from URL (OpenFromWeb)

Open a .zip from a URL and unzip.

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

'  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
    Exit Sub
End If

'  It can be unzipped to disk:
Dim fileCount As Long
fileCount = zip.Unzip("c:/temp")
If (fileCount < 0) Then
    MsgBox zip.LastErrorText
    Exit Sub
End If

'  Alternatively, individual entries may be unzipped into memory.
'  In this case, it is unzipped into a string:
Dim fileContents As String
Dim entry As ChilkatZipEntry2
Dim addCR As Long
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)
    Text1.Text = Text1.Text & fileContents & vbCrLf
    Text1.Refresh
End If