Imports System.Net
Namespace ConsoleApplication1
Class Program
Private Shared Sub Main(args As String())
Dim fileLocation As String = "http://TestWebAPI/SampleText/sample.txt"
Dim serverResponse = GetServerResponse(fileLocation)
Console.WriteLine("URL Validity : {0} " & vbLf & " Server Response : {1}", serverResponse.Item1, serverResponse.Item2)
Console.ReadKey()
End Sub
Private Shared Function GetServerResponse(fileLocation As String) As Tuple(Of Boolean, String)
Dim isValidURL As Boolean = True
Dim data As String = String.Empty
Using client As New WebClient()
Try
data = client.DownloadString(fileLocation)
Catch weX As WebException
isValidURL = Not isValidURL
data = weX.Message
End Try
End Using
Return Tuple.Create(Of Boolean, String)(isValidURL, data)
End Function
End Class
End Namespace