Opening Program with a button

[weirddemon]

I'm building a program that will allow me to launch other files/programs with a button.

I'm currently doing this with

Code: Select all

Shell ("c:\Test.txt")

The problem is that this program is going to be a light weight .exe that will be used on multiple computers. That being said, I can't really use the Shell command because it requires a direct path.

I was wondering how to tell the button to call forth a program or file as long as it is in the same folder as the exe.

Any help would be appreciated.

Thanks

[Etheryte]

The Ultimate Coding Tool

[weirddemon]

That's funny because I use the "Let me Google that for you" pretty often.

I guess my problem was that I wasn't wording it right in google, because I googled it for awhile before I went to the forums for the answer.

Thanks

[White95dp]

Dim cMyOut As String
cMyOut = App.Path & "\Quest.exe"
Dim cShellcmd As String
cShellcmd = """" & cMyOut & """"
Shell cShellcmd, vbNormalFocus

[Keithuk]

I'm building a program that will allow me to launch other files/programs with a button.

I'm currently doing this with

Code: Select all

Shell ("c:\Test.txt")

I know this is an old topic but no one has given a useful solution.

No you can't really use Shell for this because Shell will only open a com, exe or bat file on its own. You can use Shell if you specify what exe you want to open the txt file.

Shell "NotePad.exe " & "c:/temp.txt", 1

You don't have to specify where NotePad.exe is because its in the Windows path.

A far better way of doing this is to use the ShellExecute API call.

Code: Select all

Option Explicit

Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
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()

ShellExecute Me.hwnd, "open", "c:/temp.txt", vbNullString, vbNullString, SW_SHOW

End Sub


This will use the registered application used for opening txt files. This is normally NotePad.exe in Windows.

Now ShellExecute is s useful API where you can Open any file, Print any file and Email someone.