Как узнать размер файла по 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)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д