Open .exe without Shell (1 Viewer)

[kevnaff]

You can use this code also :

Public Declare PtrSafe Function FileProtocolHandler Lib "url.dll" _
      Alias "FileProtocolHandlerA" (ByVal hwnd As Long, ByVal hinst As Long, _
      ByVal lpszCmdLine As String, ByVal nShowCmd As Long) As Long

Public Sub OpenHyperlink(ByVal Url)
  FileProtocolHandler 0, 0, Url, 1
End Sub

And call it this way :

OpenHyperlink "H:\QA90PRO32\QA90PRO.exe"

Hi Moosak,

I've given this a go and I'm not sure that I've copied the code to the correct places.

I created a new module and copied the top section of code.

I then copied OpenHyperlink "H:\QA90PRO32\QA90PRO.exe" in to the on click event of my command button.

When clicking the command button nothing happens.

Have I copied the code to the correct place?

Thanks

 

[gemma-the-husky]

Hi theDBguy,

I used the following code:

Dim myPath As String

myPath = "H:\QA90PRO32\QA90PRO.exe"
Application.FollowHyperlink myPath

and got this message:

View attachment 102798

When clicking OK I get this:

View attachment 102799

When clicking debug the following is highlighted:

View attachment 102800

The trouble is probably that you are trying to open an application - and not open a document (such as a pdf) that HAS an associated application. I thought that might happen, to be honest, as your problem was to open a program without using shell. You should error trap the statement, but that doesn't solve the issue.

 

[Moosak]

When clicking the command button nothing happens.

Nothing will happen if the file is not exists.
Check that first and make sure the path is written correctly.

 

[Moosak]

You can try this one also :

Public Sub OpenPath(strPath As String)
Shell "explorer.exe" & " " & strPath, vbNormalFocus
End Sub

and call it like this :

OpenPath "H:\QA90PRO32\QA90PRO.exe"