ShellExecute API 1

[lydro]

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!

 

[Black007]

Dim p As New Process
p.StartInfo.UseShellExecute = True
p.StartInfo.FileName = "c:\mydoc.doc"
p.Start()
\\\
\\\
Dim p As New System.Diagnostics.ProcessStartInfo()
p.WindowStyle = ProcessWindowStyle.Hidden
p.FileName = "C:\mydoc.doc"
p.UseShellExecute = True
System.Diagnostics.Process.Start(p)


found via google :

http://groups.google.be/groups?hl=n...y6R2G9mEHA.3352%40TK2MSFTNGP15.phx.gbl&rnum=6