Moin,
Beispiel fuer den seViewer.exe, sollte aber auch fuer den Viewer.exe
passen
'Funktionsdeklaration Programm oder Datei öffnen
Private Declare Function ShellExecute Lib "Shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Public Enum SHOWCMDFLAGS
SHOWNORMAL = 5
SHOWMAXIMIZE = 3
SHOWMINIMIZE = 7
End Enum
'
'
Public Function showFile(sFilePath As String) As Long
'
' try to open a file via ShellExecute first (rc <= 32 denotes error)
'
showFile = ShellExecute(Me.hWnd, _
vbNullString, _
"seviewer.exe", _
sFilePath, _
vbNullString, _
SHOWNORMAL)
'
End Function
----------------------
' oeffnet mit den zugeordneten Programm\
showFile = ShellExecute(Me.hWnd, _
vbNullString, _
sFilePath, _
vbNullString, _
vbNullString, _
SHOWNORMAL)
siehe auch Beitrag: http://ww3.cad.de/foren/ubb/Forum3/HTML/003281.shtml#000003
(.zip file)
Fuer dein Pgm:
[...]
1. für den Dateinamen Dateiname = "C:\Programme\Solid Edge V16\Viewer.exe" & " (Dateiname)"
[...]
Dateiname sollte nicht in Klammern und "" sein also
... & " " & Dateiname
Fehlermeldung: sicher auf die falsche Datei: (Dateiname) als
Runtime Argument zurueckzufuehren
[Diese Nachricht wurde von modeng am 21. Aug. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP