' benötigte API-Deklaration
Private Declare Function FindExecutable Lib "shell32.dll" _
  Alias "FindExecutableA" (ByVal lpFile As String, _
  ByVal lpDirectory As String, _
  ByVal lpResult As String) As Long

'Diese Funktion ermittelt die Standard-Anwendung
'in Verbindung mit einem bestimmten Dateityp
'
'Die Funktion gibt als Ergebnis den Dateinamen mit
'vollständigen Pfad zurück
'
'Kann keine assoziierte Anwendung ermittelt werden
'wird ein Leerstring zurückgegeben
Public Function AnwendungFuerDatei(ByVal Datei As String) _
  As String
 
  'Datei: Pfad+Dateinamen einer existierenden Datei
 
  Dim Pfad As String
 
  Pfad = Space$(256)
  FindExecutable Datei, vbNullString, Pfad
  If Pfad <> "" Then
    Pfad = Left$(Pfad, InStr(Pfad, vbNullChar) - 1)
  End If
  If UCase$(Pfad) = UCase$(Datei) Then Pfad = ""
 
  AnwendungFuerDatei = Pfad
End Function

' WinWord.exe suchen
 
Dim F As Integer
Dim sPath As String
Dim sFile As String
 
' temporöre .DOC Datei erzeugen
sFile = App.Path & "\~~test.doc"
F = FreeFile
Open sFile For Output As #F
Close #F
 
' Nach verknüpfter Anwendung suchen
sPath = AnwendungFuerDatei(sFile)
 
' temporäre Datei löschen
Kill sFile
 
' WinWord starten
If sPath <> "" Then Shell sPath

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de