Public Function Exists_HTTP_Folder(ByVal Foldername As String, _
                 Optional ByRef msg As String = "") As Boolean
 
   msg = ""
 
   Foldername = Foldername.Trim.ToLower
   Foldername = Foldername.Replace("\", "/")
 
   If Not Foldername.StartsWith("http://") Then _
      Foldername = "http://" & Foldername
 
   Dim ret As Boolean = False
 
   Try
      Dim wr As System.Net.HttpWebRequest = _
      DirectCast(System.Net.WebRequest.Create(New Uri(Foldername)), _
      System.Net.HttpWebRequest)
 
      wr.ContentType = "text/directory"
 
      Using resp As System.Net.HttpWebResponse =
         DirectCast(wr.GetResponse, System.Net.HttpWebResponse)
         ret = True
         msg = resp.ContentType
      End Using
 
   Catch ex As Exception
      msg = ex.Message
   End Try
 
   Return ret
End Function