Mit welchem Programm ist eine Datei verknüpft ?
    So könnte beispielsweise die Datei C:\Bootlog.txt mit
    C:\Windows\Notepad.exe verknüpft sein.
    Dies ermitteln Sie wie folgt:

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

FORM-CODE

   Private Declare Function FindExecute Lib "shell32.dll" Alias _
      "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory _
      As String, ByVal lpResult As String) As Long

   Private Function VerknuepftesProgramm(Datei As String) As String
      Dim Pfad As String
      Pfad = Space(256)
      FindExecute Datei, vbNullString, Pfad
      VerknuepftesProgramm = Left$(Pfad, InStr(Pfad, vbNullChar) - 1)
   End Function

   Private Sub Command1_Click()
      Dim Datei As String
      Datei = "C:\Bootlog.txt"
      x = VerknuepftesProgramm(Datei)
      MsgBox x
      'so könnten Sie die Datei nun starten:
      'Shell x & " " & Datei
   End Sub

      Diese Möglichkeit müssen Sie beispielsweise unter Windows NT 4.0 verwenden,
     um Hilfedateien aufzurufen !

     Der Aufruf winhelp <Hilfedatei> führt unter Windows NT
     zur Fehlermeldung, dass die angegebene Datei keine Hilfedatei sei.

     Sie müssen also zunächst mit
     x = VerknuepftesProgramm(<Hilfedateiname>) ermitteln,
     wo sich die Datei WinHelp.exe befindet,
     um diese dann mit Shell x & " " & <Hilfedateiname> aufzurufen !