Hi. Folgendes müßte laufen. Bei mir tuts das.
Public Declare Function FindExecutable ...
Public Function HilfeStarten()
Dim dok As String, exe As String, path As String, i As Long
On Error GoTo fehler
exe = Space(254) & Chr(0)
dok = app.path & "helpindex.html" 'Hier geht auch eine URL
path = App.path & "\help"
i = FindExecutable(dok, path, exe)
If i 42 Or Left(exe, 1) = Chr(0) Then
MsgBox "FILE/URL NOT FOUND OR NO BROWSER FOUND!"), vbCritical
Else
Shell Left(exe, InStr(exe, Chr(0)) - 1) & " " & path & "\" & dok
End If
Exit Function
fehler:
If Err.Number = 53 Then
MsgBox "Die Datei " & Left(exe, InStr(exe, Chr(0)) - 1) & cr & "die zum öffnen der Hilfe erforderlich ist wurde nicht gefunden!", vbCritical
Else
Call ExtErrMsg(Err.Number, Err.Description, "", "functions/Hilfestarten", "")
End If
End Function
Ein Teil des Codes ist nicht unbedingt nötig. Wichtig ist die API-Funktion und der Shell-Befehl. Die Klimmzüge mit chr(0) sind nötig, da die Funktion einen Nullterminierten String erwartet.
hoffedirgeholfenzuhaben, holli