HTTP Download File

Download a file via HTTP to disk. The file is downloaded in streaming mode directly to the filesystem. Any size file can be downloaded. The memory footprint is constant and small.

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

'  Download the Ruby language install
'  Note: These URLs may have changed since this example was created.
success = http.Download("ftp://ftp.ruby-lang.org/pub/ruby/ruby-1.8.5.tar.gz","ruby-1.8.5.tar.gz")
If (success <> 1) Then
    MsgBox http.LastErrorText
Else
    MsgBox "Ruby Download Complete!"
End If

'  Download the Python language install.
'  Note: These URLs may have changed since this example was created.
success = http.Download("http://www.python.org/ftp/python/2.5/python-2.5.msi","python-2.5.msi")
If (success <> 1) Then
    MsgBox http.LastErrorText
Else
    MsgBox "Python Download Complete!"
End If