Public Function Exists_HTTP_File(ByVal Filename As String) As Boolean
 
        Filename = Filename.Trim.ToLower
 
        If Not Filename.StartsWith("http://") Then _
              Filename = "http://" & Filename
 
        Dim ret As Boolean = False
 
        Try
            Dim wr As System.Net.HttpWebRequest = _
            DirectCast(System.Net.WebRequest.Create(New Uri(Filename)), _
            System.Net.HttpWebRequest)
 
            Using resp As System.Net.HttpWebResponse =
                DirectCast(wr.GetResponse, System.Net.HttpWebResponse)
                ret = resp.ContentLength > 0
            End Using
        Catch
        End Try
 
        Return ret
    End Function