Open Zip File at a URL

Download Chilkat Zip ActiveX

Opens a Zip file on the Web, such as http://www.chilkatsoft.com/Test2.zip

Private Sub Command1_Click()
    
    Dim zip As New ChilkatZip2
    
    ' Anything works to begin the 30-day trial.
    zip.UnlockComponent "30-day trial"
    
    ' We've placed a Zip here for you to test...
    success = zip.OpenFromWeb("http://www.chilkatsoft.com/Test2.zip")
    If (success = 1) Then
    
        ' List the files in the Zip
        Dim entry As ChilkatZipEntry2
        Set entry = zip.FirstEntry()
        While (Not (entry Is Nothing))
            List1.AddItem entry.FileName
            Set entry = entry.NextEntry()
        Wend
        
    Else
    
        MsgBox zip.LastErrorText
        
    End If
    
End Sub