Get Size of Download using HTTP HEAD

Get the size of a download using an HTTP HEAD request.

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

Dim resp As ChilkatHttpResponse

Set resp = http.GetHead("http://www.chilkatsoft.com/download/ChilkatDotNet2.msi")
If (resp Is Nothing ) Then
    MsgBox http.LastErrorText
Else
    Dim sizeStr As String
    sizeStr = resp.GetHeaderField("Content-Length")
    If (sizeStr = vbNullString ) Then
        MsgBox "No content-length header field"
    Else
        '  Show the size of the file.
        '  You may convert the size string to an integer...
        MsgBox sizeStr
    End If

End If