Re^3: Aufruf eines Web-Explorers

Dies ist eine leicht modifizierte Version einer Funktion die ich auch benutze. Sie sucht das Programm das
mit html-dateien verknüpft ist
(in 99,5% aller Fälle der Browser) und startet es mit der aus dem html-string Datei gebildeten als Parameter.
Das Funktioniert sowohl mit netscape, ie, opera und lynx.

Hier die Funktion:

 
Public Function start_html(ByVal html_str As String)
    Dim dok As String, exe As String, path As String, i As integer
    dim fn as integer
    On Error GoTo fehler
    fn=FreeFile
    open app.path & "\tmphtml.html" for output as #fn
    print #fn, html_str
    close #fn

    exe = Space(254) & Chr(0)
    dok = "tmphtml.html"
    path = app.path & "\"    

    i = FindExecutable(dok, path, exe)

    If i  42 Or Left(exe, 1) = Chr(0) Then
        MsgBox "Cannot find html-associated Application!"
    Else
        Shell Left(exe, InStr(exe, Chr(0)) - 1) & " " & app.path & "\tmphtml.html"
    End If
    Exit Function
fehler:
    If Err.Number = 53 Then
        MsgBox "Die Datei " & Left(exe, InStr(exe, Chr(0)) - 1) & Chr(13) & "die zum öffnen einer Internetverbindung erforderlich ist wurde nicht gefunden!", vbCritical
    Else
        Call ext_err_msg(Err.Number, Err.Description, "", "functions/Hilfestarten", "BLM")
    End If
End Function