Get Size of Download using HTTP HEAD

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

Download Chilkat HTTP ActiveX

set http = CreateObject("Chilkat.Http")

'  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
    WScript.Quit
End If

Set resp = http.GetHead("http://www.chilkatsoft.com/download/ChilkatDotNet2.msi")
If (resp Is Nothing ) Then
    MsgBox http.LastErrorText
Else

    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