Public Function WebFileExists(ByVal URL As String) As Boolean
 
        Try
            Dim sBuffer As String
            Dim oRequest As WebRequest = WebRequest.Create(URL)
            oRequest.Method = "GET"
            Dim oResponse As WebResponse = oRequest.GetResponse()
            Application.DoEvents()
            Dim oStream As New System.IO.StreamReader( _
              oResponse.GetResponseStream())
            sBuffer = oStream.ReadLine()
            oStream.Close()
 
            oResponse.Close()
 
            If sBuffer.Length <> 0 Then
                Return True
            Else : Return False
            End If
 
        Catch e As Net.WebException
            Return False
        End Try
    End Function