怎样测试一个文件下载地址有效，在线等

Question

怎样测试一个文件下载地址有效，在线等
比如有一个文件下载路径 www.bloven.com/bloven.rar 怎样测试该路径有效，也就是能下载！ 先谢了

Answer 1

Private Sub Command1_Click()
Dim a As String
Dim RetCode As Long
Inet1.OpenURL "http://yang/xml\00.bmp"
MsgBox Inet1.GetHeader
MsgBox Inet1.GetHeader("content-length")
RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        MsgBox "成功了"
    Case 404
        MsgBox "失败了"
    Case Else
        MsgBox "Error"
    End Select
End Sub