Dim wshThisShell As WshShell
Dim lngRet as Long
Dim strShellCommand As String
Dim strBatchPath as String

Set wshThisShell = New WshShell
strBatchPath = "C:\Program Files\Batch Path\Batch.bat"
'the path for the batch file you're using 
strShellCommand = """" & strBatchPath & """"
'the ridiculous number of quotation marks is necessary
'when there is a space in one or more of the folder names
lngRet = wshThisShell.Run(strShellCommand, vbNormalFocus, vbTrue)
'set 3rd argument above to vbFalse for asynchronous
'execution of the batch file. 