Open Zip from URL (OpenFromWeb)

Open a .zip from a URL and unzip.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

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


'  Downloads a .zip into memory and opens it.
success = zip.OpenFromWeb("http://www.chilkatsoft.com/testData/hamlet.zip")
If (success <> true) 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 Chilkat.ZipEntry
Dim addCR As Boolean
addCR = true
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)
    TextBox1.Text = TextBox1.Text & fileContents & vbCrLf
    TextBox1.Refresh()
End If