Private Sub Webbrowser_NavigateComplete2(...)
Dim nvers As String
nvers = Webbrowser.Document.documentElement.outerHTML ' Inhalt der Seite 
' auslesen
 
If InStr(0, nvers, "Die Seite kann nicht angezeigt werden", vbTextCompare) > _
  0 Or InStr(0, nvers, "404", vbTextCompare) > 0 Then
If Instr(0, nvers, "Fehler" > 0 Or Instr(0, nvers, "Error" > 0 Then
Msgbox "Datei nicht gefunden!"
Else
Msgbox "Datei existiert!"
End If
End If
 
End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co