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 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 294 Downloads 133

'online', 'website', 'ftp', 'web', 'file', 'folder', 'pat', 'found', 'isthere', 'isthere1', 'search'

ANmarAmdeen
555
File System VBA-Excel
Revisions

v4.0