Ich hab' den Code in einer Schaltfläche gehabt - eben entsprechend anpassen - funktioniert nur für Windows...
Sub Click(Source As Button)
' # ata - Datei starten mit Original-Anwendung - falls installiert
Dim hwnd As Long
Dim sOperation As String
Dim sFile As String
Dim sDirectory As String
Dim nShowCmd As Long
Dim Hwin32 As Long
Dim pos As Integer
' # die Variablen initialisieren
sFile = Strrightback( "C:\Temp\Zu_startende_Datei.txt" , "\" ) ' # Dateiname
pos = Instr( "C:\Temp\Zu_startende_Datei.txt" , sFile )
Print sFile
sDirectory = Left( "C:\Temp\Zu_startende_Datei.txt" , pos) ' # Verzeichnis
nShowCmd = 1 ' # soll die Datei geöffnet werden
sOperation = "Open" ' # zum Ausdrucken hier "Print"
' # öffnen
Hwin32 = ShellExecute( hwnd , sOperation , sFile , "" , sDirectory , nShowCmd )
If Hwin32 = 2 Then
Print "... konnte nicht geöffnet werden - " + Cstr( Hwin32 )
Else
Print, "... geöffnet - " + Cstr( Hwin32 )
End If
End Sub
ata