Running an external .vbs file from within Access 1

[SlakeB]

Does anyone know how I can run an external .vbs file from within Access (With a button on an Access form triggering a macro)?

 

[PHV]

Something like this ?
CreateObject("WScript.Shell").Run "\path\to\script.vbs"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[djwatts]

OR....

Call Shell("wscript.exe" & " c:\test.vbs", vbMaximizedFocus)

 

[SlakeB]

I put this code behind my form button:

Private Sub Command4_Click()
Call Shell("wscript.exe" & "C:\test.vbs", vbMaximizedFocus)
End Sub

I keep getting a file not found error.
Am I missing something?

 

[EBGreen]

Well, do you actually have a file at the root of C: that is named test.vbs?

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[SlakeB]

yes

 

[EBGreen]

Aaah...I see the problem. Change the line to:
Call Shell("wscript.exe " & "C:\test.vbs", vbMaximizedFocus)

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[SlakeB]

Thanks that worked. That's odd that a space is required after wscript.exe.

 

[EBGreen]

It's not really all that odd. All you are doing is concatenating two strings. So, before you were saying "Run wscript.exeC:\test.vbs". Which is clearly wrong. With the space you are saying "Run wscript.exe C:\test.vbs". Which is right.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]