Sidan kan inte hittas.

Jesper TMedlem sedan nov. 20017 144 inlägg

Frågan24 aug. 2004 10:23#1

Det jag vill göra är att läsa in sidan i en webbrowserkontroll men jag får "sidan kan inte hittas". Vad är fel?
Med en vanlig textbox så funkar det.

Sub form_load()
    Dim f As Integer, FileName As String, str As String
    
    FileName = App.Path & "\source.htm"
    f = FreeFile
    If Dir(FileName) <> "" Then
        Open FileName For Input As f
        str = Input(LOF(f), f)
        WebBrowser1.Navigate "about:" & str
        'Text1.Text = str
        Close f
    End If
End Sub

Jesper TMedlem sedan nov. 20017 144 inlägg

25 aug. 2004 07:04#2

    FileName = App.Path & "\source.htm"

        If Dir(FileName) <> "" Then
            WebBrowser1.Navigate (FileName)
end if