Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=198803&view=findpost&p=1661178 Sat, 11 Aug 2007 19:29:04 +0000 Как узнать размер файла на сервере без закачки? https://forum.sources.ru/index.php?showtopic=198803&view=findpost&p=1661178
    'На форме таймер с периодом 100 мс. В refernces - галочку на Microsoft XML 4.0
    Option Explicit
    Dim a As New XMLHTTP40
     
    Private Sub Form_Load()
        a.open "HEAD", "http://ya.ru"
        a.send
    End Sub
     
    Private Sub Timer1_Timer()
        If a.readyState = 4 Then
            Timer1.Enabled = False
            MsgBox a.getResponseHeader("Content-length")
        End If
    End Sub
]]> ANDLL Сети, Интернет, почта