Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Become a VB Expert! Join 149,036 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,708 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

Submitted By: Xenon

Actions:

Rating:

Views: 25,241

Last Modified: October 27, 2005

Instructions: take a form and add a command button to it, name it as cmdExec.

'I have made the code to run the calculator, which
' is present in every Windows Based PC.
'the command button click() event triggers
'the application to run.
'General Syntax is
RetVal = Shell([Pathname of EXE],[WindowStyle As vbAppWinStyle = vbMinimisedFocus])
'----------------CODE--------------------
Private Sub cmdExec_Click() ' cmdExec is the name of the command button on any form.
Dim RetVal
RetVal = Shell("C:\WINDOWS\System32\calc.exe", 1) ' Run Calculator.
End Sub
'---------------------------------------

Comments
denmont 2007-11-06 20:22:26
i would like to use a variable in place of a hard code file name. example: MyFile as String MyFile = "drawing.3dm" call shell("c:\rhino.exe c:\MyFile",3)
vishnudba 2008-04-24 07:01:11
Will it work for all exes
Jaalenn 2008-11-20 01:00:30
To answer this old question, yes. All you have to do is change RetVal = Shell("C:\WINDOWS\System32\calc.exe", 1) to RetVal = Shell("C:\File Location\Filename.exe", 1) Be sure to substitute the proper filepath for your exe.