Control VBScript using VBA

Question

To achieve multithreading, I'm writing using VBA to construct VBScript code (VBStr) and write to file on-the-fly, before launching these helper scripts asynchonously:

Dim VBFile As Object
Dim VBPath As String
VBPath = CurrentProject.Path & "\" & GUID() & ".vbs"
Set VBFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(VBPath)
VBFile.WriteLine VBStr
VBFile.Close

Dim Shell As Object
Set Shell = CreateObject("Wscript.Shell")

Shell.Run """" & VBPath & """"

However, how to control these scripts back in VBA? I can't seem to get a handle or reference to them. Say I want to terminate hung/stalled scripts after 60secs - how to do this?

Ekkehard.Horner · Accepted Answer · 2013-07-02 07:45:25Z

5

Use .Exec instead of .Run. The returned WshScriptExec Object has methods/properties to monitor the status of and to terminate the process.

answered Jul 2, 2013 at 7:45

Ekkehard.Horner

38.8k2 gold badges50 silver badges101 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Control VBScript using VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related