Check URL

[tiredofit]

This code checks if an URL exists:

Function URLExists(url As String) As Boolean
    Dim Request As Object
    Dim ff As Integer
    Dim rc As Variant
    
    On Error GoTo EndNow
    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    With Request
      .Open "GET", url, False
      .Send
      rc = .StatusText
    End With
    Set Request = Nothing
    If rc = "OK" Then URLExists = True
    
    Exit Function
EndNow:
End Function

However it doesn't seem to work if I put in an URL such as:

"bbc.co.uk"

Instead I have to put:

"https://www.bbc.co.uk"

How can I adapt the code so it will accept both urls?

Thanks

 

[6StringJazzer]

The protocol is part of the URL so without it you are guessing. If the URL does not begin with HTTP you can try HTTPS then if that doesn't work try HTTP, and if that doesn't work return FALSE.

Here is version that solves it recursively. Compiled but not tested.

Function URLExists(url As String) As Boolean

    Dim Request As Object
    Dim ff As Integer
    Dim rc As Variant
    
    On Error GoTo EndNow
    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    If UCase(Left(url, 4)) <> "HTTP" Then
      URLExists = URLExists("http://" & url)
      If Not URLExists Then
         URLExists = URLExists("https://" & url)
      End If
      
    Else
    
      With Request
        .Open "GET", url, False
        .Send
        rc = .StatusText
      End With
      Set Request = Nothing
      If rc = "OK" Then URLExists = True
    
    End If
    
    Exit Function
    
EndNow:

End Function

 

[tiredofit]

The protocol is part of the URL so without it you are guessing. If the URL does not begin with HTTP you can try HTTPS then if that doesn't work try HTTP, and if that doesn't work return FALSE.

Here is version that solves it recursively. Compiled but not tested.

Function URLExists(url As String) As Boolean

    Dim Request As Object
    Dim ff As Integer
    Dim rc As Variant
   
    On Error GoTo EndNow
    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    If UCase(Left(url, 4)) <> "HTTP" Then
      URLExists = URLExists("http://" & url)
      If Not URLExists Then
         URLExists = URLExists("https://" & url)
      End If
      
    Else
   
      With Request
        .Open "GET", url, False
        .Send
        rc = .StatusText
      End With
      Set Request = Nothing
      If rc = "OK" Then URLExists = True
   
    End If
   
    Exit Function
   
EndNow:

End Function

Thanks for your help.