Private Declare Function FindExecutable Lib "shell32.dll" Alias _
  "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal _
  lpResult As String) As Long
 
Public Function GetExeFromFile(ByVal strFile As String)As String
Dim strExe As String
 
'// die Datei muß exestieren
'// zB: strFile = "C:\Pfad\Datei.pdf"
strExe = Space(260)
FindExecutable strFile, "", strExe
 
'// in strExe steht jetzt zB: C:\Programme\Adobe\Acrobat 4.0\Reader\AcroRd32.exe
'// (das ist er bei mir)
GetExeFromFile = strExe
End Function
 
Wenn strExe leer ist, gibts entweder die Datei nicht oder es ist kein Programm _
  zugeordnet

Gruss Caddy