Shell Or Other command to open a file.

jlizardo

Hi I want to open any document without the .exe file to open it. Example. If I using shell("c:\program files\microsoft office\office\winword.exe c:\temp\mydoc.doc") I dont't wanna that. How i can only put Shell("c:\temp\mydoc.doc") or other command to open it. Johnny Lizardo

jlizardo

The reason is clear.. Many PC have differents office version and I can't specify the path correctly.

Niels Penneman

use ShellExecute (API); verb is "open" greetz ;-) *Niels Penneman*

Software/Dev Site
Personal Site

jlizardo

Hi Look, i don't know.. but this don't works. This is a command for vb.net?. Or give me more info about that. Johnny Lizardo

Niels Penneman

VB5/6 declaration:

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

or better (but only for 2000/XP) the unicode function:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteW" (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

VB.NET declaration:

Declare Auto Function ShellExecute Lib "shell32.dll" (ByVal hwnd As IntPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

nShowCmd & return value constants declaration:

Public Const SW_HIDE = 0
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
Public Const ERROR_FILE_NOT_FOUND = 2&
Public Const ERROR_PATH_NOT_FOUND = 3&
Public Const ERROR_BAD_FORMAT = 11&
Public Const SE_ERR_ACCESSDENIED = 5
Public Const SE_ERR_ASSOCINCOMPLETE = 27
Public Const SE_ERR_DDEBUSY = 30
Public Const SE_ERR_DDEFAIL = 29
Public Const SE_ERR_DDETIMEOUT = 28
Public Const SE_ERR_DLLNOTFOUND = 32
Public Const SE_ERR_FNF = 2
Public Const SE_ERR_NOASSOC = 31
Public Const SE_ERR_OOM = 8
Public Const SE_ERR_PNF = 3
Public Const SE_ERR_SHARE = 26

VB5/6 example

Private Sub OpenFile(ByVal File As String)
ShellExecute(Me.hWnd, "open", File, 0, 0, SW_NORMAL)
End Sub

See ShellExecute Function on MSDN Hope this helps you out :-) greetz ;-) *Niels Penneman*

Software/Dev Site
Personal Site

jlizardo

Men.. You're the men,. Thankk a lottt. Johnny Lizardo