Shell command

[dakone]

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

Private Sub Command1_Click()

    Call ShellExecute(0, "Open", "D:\Resume.doc", vbNullString, vbNullString, vbNormalFocus)
   
End Sub

This opens my resume from a disk in MS Word. How can I make the doc open in Word Perfect if that is what the user is using instead?

 

[DrJavaJoe]

Call ShellExecute(0, "Open", strPathWordPerfect, strDocToOpen, vbNullString, vbNormalFocus)
'Where strPathWordPerfect is the path and wordperfect.exe file and strDocToOpen is D:\Resume.doc

 

[johnwm]

This will open any doc with it's default application

Public Sub OpenDocument(DocumentWithPath As String)
Shell "RUNDLL32.EXE URL.DLL, FileProtocolHandler " & DocumentWithPath, vbNormalFocus
End Sub

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[jonybd]

Click open after doing the following.! ;o)
Private Sub Command1_Click()
Shell ("explorer.exe f:\one.doc&quot
End Sub