Dim WinScriptHost Set WinScriptHost = CreateObject("WScript.Shell") WinScriptHost.Run Chr(34) & "E:\YaraGoBackUp\YaraGo_PHARMACY_DB_BACK_UP.bat" & Chr(34), 0 Set WinScriptHost = Nothing