Excel isrlgood

Public Function IsURLGood(url As String)
    Dim request As Object
    Set request = CreateObject("WinHttp.WinHttpRequest.5.1")
    On Error GoTo haveError
    With request
        .Open "HEAD", url
        .Send
        IsURLGood = .Status
    End With
    Exit Function
haveError:
    IsURLGood = Err.Description
End Function

Similar codes

0 vote332 views1 answer
C# check if pdf is protected without password
C#
0 vote301 views1 answer
Linq left join group by
C#
0 vote316 views1 answer
C# file watcher specific file
C#
30 votes255 views3 answers
C# if file exists
C#
0 vote278 views1 answer
Lucene.net
C#
2 votes268 views2 answers
C# dictionary values to list
C#
1 vote275 views1 answer
Test how catch exception c#
C#
0 vote301 views1 answer
Auto paly a video control in mvc c#
C#
0 vote232 views1 answer
Assembly project name c# .net
C#
0 vote271 views1 answer
Using == is inefficient unity
C#