В этой теме нет ответов

[Alex-tester]

В примере продемонстрирована возможность запуска файла из скрипта с ожиданием его завершения, т.е. скрипт не будет продолжать свое выполнение, пока не завершит выполнение запущенный файл (в примере это файл 1.bat).

Sub runCmd(cmdLine, byRef inOut, byRef inErr)
Dim oExec as Object
Dim wshShell as Object
Dim i

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(cmdLine) ' Запуск *.bat или *.exe файла

Do While oExec.Status = 0 ' Если 0, то приложение еще существует/активно
delayfor 100
Loop

inOut = oExec.stdOut.ReadAll
inErr = oExec.stdErr.ReadAll
End Sub

Sub Main
dim inOut, inErr

call runCmd("c:\1.bat", inOut, inErr)
' после завершения работы файла "1.bat", скрипт продолжит свое выполнение

End Sub

Пример взят из обсуждения:
http://forums.softwa...&st=