IsThere_Remote

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
Tested
My Own Work
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

sURL

Views 839 Downloads 304

VBA-Excel File System
ANmarAmdeen
631
Revisions

v4.0