'函数名称：WebFileCheck
'作    用：检测网站目录下的文件是否存在
'传递参数：URL 网页文件路径
'返 回 值：True或者False
'调用示例：WebFileCheck("http://www.accessoft.com/index.asp")
Public Function WebFileCheck(URL As String) As Boolean
On Error GoTo ErrorHandler
    Dim XMLObject As Object
    Dim ReturnType As String
    Set XMLObject = CreateObject("Microsoft.XMLHTTP")
    XMLObject.Open "GET", URL, False
    XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
    XMLObject.setRequestHeader "Range", "bytes=1-255"
    XMLObject.send
    If XMLObject.Status = 200 or XMLObject.Status = 206 Then
        WebFileCheck = True
    Else
        WebFileCheck = False
    End If
    Set XMLObject = Nothing
    
Exithere:
    Set XMLObject = Nothing
    Exit Function

ErrorHandler:
        MsgBox Err.Description, vbCritical, "错误提示"
        Resume Exithere
End Function