Как узнать размер файла по HTTP? - VB

Формулировка задачи:

Как с помощью VB6 можно узнать размер какого-нибудь файла, расположенного на сервере в Интернете?

Решение задачи: «Как узнать размер файла по HTTP?»

textual
                            Листинг программы 
                        

                            Inet1.Execute "http://img.yandex.net/i/yandex-v9.gif http://img.yandex.net/i/yandex-v9.gif", "HEAD"
Do
  If Not Inet1.StillExecuting Then Exit Do
  DoEvents
Loop
lLenthFile = CLng(Inet1.GetHeader("Content-length"))
s = "Date: " & Inet1.GetHeader("Date") & vbCrLf
s = s & "MIME-version: " & Inet1.GetHeader("MIME-version") & vbCrLf
s = s & "Server: " & Inet1.GetHeader("Server") & vbCrLf
s = s & "Content-length: " & CStr(lLenthFile) & vbCrLf
s = s & "Content-type: " & Inet1.GetHeader("Content-type") & vbCrLf
s = s & "Last-modified: " & Inet1.GetHeader("Last-modified") & vbCrLf
MsgBox (s)
                        