Diese kleine aber nützliche Funktion prüft eine URL ob diese im Internet verfügbar ist. Wenn Ja dann gibt die Funktion ein True zurück
Public Function CheckURL(ByVal URL As String) As Boolean
Try
Dim Response As Net.WebResponse = Nothing
Dim WebReq As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
Response = WebReq.GetResponse
Response.Close()
Return True
Catch ex As Exception
End Try
End Function
Kommentare zum Snippet