[AccessD] Shelling to a batch file

Max,

I use the SHELL command quite a bit to fire-up .bat and .exe files from
Access.

Below is a snippet of VBA code which you may find useful.

I am not sure if this will help you or not, but I thought that I would
share what I have.

Please let me know if you have any questions.

Thanks,
Brad Marks  

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~

Const Four_Quotes As String = """"

Dim Var_String_For_Shell_Command

Dim Var_Program_To_Be_Initiated

Dim Var_Parm_Passed_To_Initiated_Program


Var_Program_To_Be_Initiated = "C:\Documents and Settings\ABC\My
Documents\InitXcel.bat"

Var_Parm_Passed_To_Initiated_Program = "TEST-ABC"


Var_String_For_Shell_Command = _
Four_Quotes _
& Var_Program_To_Be_Initiated _
& Four_Quotes _
& " " _
& Four_Quotes _
& Var_Parm_Passed_To_Initiated_Program _
& Four_Quotes

MsgBox "Var_String_For_Shell_Command = " & vbLf & vbLf &
Var_String_For_Shell_Command

Shell Var_String_For_Shell_Command

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Wanadoo
Sent: Thursday, March 04, 2010 3:36 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Shelling to a batch file

Hi All,

I am struggling to get the SHELL command to run a batch file from
Access.

Any clues  or tips?

The batch file in turn will run and executable in the same folder as the
currentproject.path BUT this exe file is NOT installed so it is
necessary to
ensure that I first move to that folder and then run the batch.bat file.

Eg:
g\_MyTest is my currentproject.path within Access
In there I have blat.exe which is not installed and which I do not want
to
install - so nothing in the Registry.
I also have blat.bat which I have created from Access.
I want to run the batch file which in turn will invoke the blat.exe and
pass
it parameters.

The batch file runs fine if manually invoked.  This is the last bit of
running Blat from within Access. 
I will then post the lot to the List.

Thanks

Max

This is where I am at:

Private Sub sShell(sFile)
	' sfile will be "blat.bat"
	const conQuote as string = """"
    Dim sPath As String
    ' move into the current folder because we havn't installed Blat.exe
    sPath = conQuote & " CD /D " & CurrentProject.Path & conQuote
    Debug.Print sPath
    ShellExecute Application.hWndAccessApp, "Open", sPath, "", "",
vbNormalFocus

    ' now run the batch file
    'sFile = conQuote & sFile & conQuote
    Debug.Print sFile
    ShellExecute Application.hWndAccessApp, "Open", sFile, "", "",
vbNormalFocus
End Sub


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.