HTTP Resume Download File

Demonstrates how to resume downloading of a partially downloaded file.

Download Chilkat HTTP ActiveX

Dim http As New ChilkatHttp

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    Exit Sub
End If

'  Resume downloading a file.
'  It is assumed that a prior download was interrupted
'  and a partial file already exists on the local filesystem.
'  To download the remainder of the file, call ResumeDownload:
Dim localFilename As String
localFilename = "ChilkatPerl.zip"
Dim url As String
url = "http://www.chilkatsoft.com/download/ChilkatPerl.zip"
success = http.ResumeDownload(url,localFilename)
If (success <> 1) Then
    MsgBox http.LastErrorText
Else
    MsgBox "Download Complete!"
End If