Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
  Public Function OpenWithLinkedApp(ByVal lOwnerHWND As Long, _
    ByVal sFile As String, Optional ByVal sVerb As String = "open") As Boolean
 
    OpenWithLinkedApp = ShellExecute(lOwnerHWND, sVerb, sFile, "", "", 1) > 32
  End Function

If Not OpenWithLinkedApp(Me.hwnd, "C:\bootlog.txt") Then
  MsgBox "Nicht erfolgreich"
End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.