Как программно дождаться окончания работы команды оболочки?

Question

Я отправляю электронные письма в программе, например так:

Call Shell(smtpPath, emailInput...)

Это прекрасно работает, за исключением того, что если я вызываю функцию дважды, функция запускается в первый раз, вызывает команду оболочки, затем функция запускаетсяи снова вызывает команду оболочки, но первая команда оболочки не завершена, поэтому возникает ошибка, поскольку вторая команда оболочки пытается использовать тот же файл smtp, что и первый (который все еще используется).

Как заставить функцию ждать, пока не завершится выполнение команды оболочки?

Добавление: Или есть способ узнать, используется ли файл, и если это так, sleepэто, тогда попробуйте еще раз?

Answer 1

Вы можете использовать WScript.Shell , и это run метод:

Set objShell = CreateObject("WScript.Shell")
result = objShell.Run(smtpPath & " " & emailInput, 0, true)