如何获得http://www.xxx.com/xxx.exe文件的大小？

Question

如题

Answer 1

引用部件 Microsoft Internet Transfer Control
Private Sub Form_Load()
    Dim resLen As String
    With Inet1
        .Execute "http://yuan505.vicp.net/cy_ftproot/p.rar", "GET"
        Do While .StillExecuting
            DoEvents
        Loop
        resLen = .GetHeader("Content-Length")
    End With
    
    Debug.Print resLen
End Sub

Answer 2

楼上
.Execute "http://yuan505.vicp.net/cy_ftproot/p.rar", "GET"
中的GET是不是可以换成HEAD,可以大大提高速度吧