Servus!
Deine Problem Beschreibung ist noch etwas ungenau, kannst du vielleicht ein wenig präziser beschreiben wie du das mit dem aufrufen meinst...
Vielleicht hilft auch schon das ... versuch doch einfach mal die Endungen der Dateien als Anhaltspunkt für die Inhalte zu nehmen
XLS --> Excel
DOC --> Word
EXE --> Sonst. ausführbare Datei ...
...
Ansonsten müsstest du schon etwas mehr Aufwand betreiben und den jewiligen Datei Header analysieren und mit bekannten Werten vergleichen ...
oder... so *g*
Bsp.:
Dim doc As New Word.Document
Dim xls As New Excel.Worksheet 'Workbook
If xls.Type = xlWorksheet Then
MsgBox "Excel"
End If
If doc.Type = wdTypeDocument Then
MsgBox "word"
End If
... mit dem Worksheet scheints nicht so toll zu klappen aber versuchs mal selbst ..
Funktioniert nur, wenn die Verweise auf die Objektbibliothek von Excel und Word gesetzt sind...
Gruss Tom