VERIFIER L'EXITENCE D'UN URL

Public Function TestUrl(ByVal URL As String) As Boolean

        
        Dim isPresentHttp As Integer = InStr(UCase(URL), "HTTP://")
        'on ajoute le http pour avoir une url bien formée
        If isPresentHttp <= 0 Then
            URL = "http://" & URL
        End If

        Dim oRequest As HttpWebRequest = Nothing
        Dim oResponse As HttpWebResponse = Nothing

        Try
            'Response.Write("URL : " & URL)
            oRequest = CType(WebRequest.Create(URL), HttpWebRequest)
            oResponse = CType(oRequest.GetResponse, HttpWebResponse)
            Dim statuscode As String = oResponse.StatusCode
            
            'Response.Write("RESPONSE : " & statuscode.Substring(0, 1) & "<br/>")
            

           
            If statuscode.Substring(0, 1).Equals("2") Or statuscode.Substring(0, 1).Equals("3") Then
                Return True
            End If
            Return False

        Catch ex As WebException
            'Response.Write(ex.Message & "<br/>")
            Return False

        End Try
    End Function