Internet Explorer object in VB

Private Sub WebBrowser1_DownloadComplete()
   If UCase(Left(WebBrowser1.Document.Title, 6)) = "ERROR:" Then MsgBox "An error occure when navigate!", vbCritical, "Error"
End Sub

Cheers

i'm late... again ;)

Hi,

Sorry for responding immediately.
I tried your way. But, in each scenario(wrong page, server down, network down) , I get a differnt test in browser.document.title. Is there a way to handle this ?

What's about to store list of possible titles with errors and perform predefined operation for each title?

Cheers

Is there a way to find the status of the .htm/.asp loaded in the browser object (directly in the browser object) than comparing the text in the title of the document representing the loaded page ?.

I'm closing this thread as I don't get a satisfactory
reply.

I'm closing this thread as I didn't get a satisfactory reply.

Don't close it!, post a new 0 points question regarding this one.

Maybe trying this:

Private Sub WebBrowser1_DownloadComplete()
On Error GoTo errTrap
If (pDisp Is WebBrowser1.object) Then
    Me.Caption = WebBrowser1.document.fileSize
End If
Exit Sub
errTrap:
    If Err.Number = -2147467259 Then _
        Me.Caption = "An error ocurred while trying to access that Url."
End Sub

Hi sindbad,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Refund points and save as a 0-pt PAQ.

sindbad, Please DO NOT accept this comment as an answer.
EXPERTS: Post a comment if you are certain that an expert deserves credit.  Explain why.
==========
DanRollins -- EE database cleanup volunteer