Check File Size using HEAD Request

Demonstrates how to quickly check the size of an HTTP download by using the HEAD request.

Download Chilkat HTTP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

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

'  Send a HEAD request to get the response header:

' response is a Chilkat.HttpResponse
Set response = http.GetHead("http://www.chilkatsoft.com/download/ChilkatDotNet2.msi")

If (response Is Nothing ) Then
    MsgBox http.LastErrorText
Else

    '  The ContentLength property of the HTTP response is
    '  the size of the remote file:
    outFile.WriteLine("Size of download = " & response.ContentLength)

End If

outFile.Close