URL が存在するかどうかを確認するためにサポートされている機能があります。
Function URLExists(URL As String) As Boolean
Dim HttpWebRequest_ As HttpWebRequest = WebRequest.Create(URL)
HttpWebRequest_.Method="HEAD" 'It doesn't work even without this.
Dim HttpWebResponse_ As HttpWebResponse = HttpWebRequest_.GetResponse()
Return HttpWebResponse_.StatusCode = HttpStatusCode.OK
End Function
URLExists(" http://www.google.com/thisPageDoesNotExistAndIsRetarded.html ") を試すと、True が返され、URLExists(" https://www.google.com/ ") を試すと (明らかに存在します) )、True (正しい) を返します。ありがとう。