Visual Basic

11-Apr-05 10:26

I'm using the ShellExecute API, but it is not opening any file with its associated program.

here is my coding:

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 Sub RunProgram(ByVal strProgram As String)
Dim lRet As Long
lRet = ShellExecute(vbNull, "Open", strProgram, "", "", 1)
If lRet <= 32 Then
MsgBox("Error Running Program")
End If
End Sub

Public Sub btmView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnview.Click
RunProgram(file_location)
end sub

It doesn't give me the error either. PLEASE HELP!

Lisa

shinay11-Apr-05 10:49

11-Apr-05 10:49

It perfectly works in my pc. You might wanna check what is inside of the strProgram variable.( maybe there is a space in side?) try with the note pad like the following if it works.

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()

Dim lRet As Long
lRet = ShellExecute(vbNull, "Open", "C:\WINDOWS\SYSTEM32\notepad.exe", "C:\mytext.txt", "", 1)
If lRet <= 32 Then
MsgBox ("Error Running Program")
End If

End Sub

Lisana11-Apr-05 11:01

11-Apr-05 11:01

NO, it still doesn't do anything. I don't know what's wrong with it.

Lisa

shinay11-Apr-05 11:12

11-Apr-05 11:12

Can you just create a new project with VB and copy & paste the following code.
In the form, you just add one button called "Command1"(by default).
Compile and run. it should work.

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 Sub RunProgram(ByVal strProgram As String)
Dim lRet As Long
lRet = ShellExecute(vbNull, "Open", strProgram, "", "", 1)
If lRet <= 32 Then
MsgBox ("Error Running Program")
End If
End Sub

Private Sub Command1_Click()
RunProgram "c:\windows\system32\notepad.exe"
End Sub

shinay11-Apr-05 11:14

11-Apr-05 11:14

I meant at least you can launch notepad.
If using Windows2000,
you have to specified C:\WINNT\SYSTEM32\NOTEPAD.exe

Lisana11-Apr-05 11:22

11-Apr-05 11:22

it still doesn't work. it didn't open the notepad..and I'm using window2000..

Lisa

shinay11-Apr-05 11:27

11-Apr-05 11:27

VB6 or VB.net? I am with VB6.

Lisana11-Apr-05 11:28

11-Apr-05 11:28

I'm using VB.NET

Lisa

shinay11-Apr-05 11:30

11-Apr-05 11:30

Try to use Shell or ShellExecuteEx to run from VB.NET instead of
ShellExecute
Since I don't have it installed, i can't test.

Lisana11-Apr-05 11:33

11-Apr-05 11:33

both won't work in the VB.NET

Lisa

Mitch F.11-Apr-05 11:32

Mitch F.

11-Apr-05 11:32

Hello,
In VB .Net, you can use:

Process.Start( <insert your parameters here> )

Hope this helps,

Mitch

My sig:

"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright

My CodeProject Blog
Most recent blog post: April 3

Lisana11-Apr-05 11:40