Checks if a file can be reached online or no
Same as IsThere_Remote (for Classic ASP) except this one is for VBA/Excel
Public Function IsThere1_Remote(sURL) As String
Rett = False
Dim HttpReq As MSXML2.xmlhttp
Set HttpReq = New MSXML2.xmlhttp
On Error Resume Next
Err.Clear
HttpReq.Open "GET", sURL, False
HttpReq.send
If Err.Number < > 0 Then
ElseIf HttpReq.Status = 200 Then
Rett = True
End If
On Error GoTo 0
Set HttpReq = Nothing
IsThere1_Remote = Rett
End Function
Rett = False
Dim HttpReq As MSXML2.xmlhttp
Set HttpReq = New MSXML2.xmlhttp
On Error Resume Next
Err.Clear
HttpReq.Open "GET", sURL, False
HttpReq.send
If Err.Number < > 0 Then
ElseIf HttpReq.Status = 200 Then
Rett = True
End If
On Error GoTo 0
Set HttpReq = Nothing
IsThere1_Remote = Rett
End Function
sURL
Views 2,273
Downloads 750
CodeID
DB ID