Как дождаться завершения выполнения команды?

← →
fag2000 (2004-05-07 13:13) [0]

Вот пример кода, извените, что на VB, который вроде нормально дожидается завершения исполняемых файлов. А вот если ему подсунуть например vbs, то он SEI.hProcess возвращает 0 и соответственно ничего не дожидается. Не подскажите как с этим бороться?
Dim lExecResult As Long Dim SEI As SHELLEXECUTEINFO If bSyncr Then With SEI .cbSize = Len(SEI) .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI .hwnd = 0 .lpVerb = "open" .lpFile = FilePath .lpParameters = vbNullChar .lpDirectory = vbNullChar .nShow = 0 .hInstApp = 0 .lpIDList = 0 End With lExecResult = ShellExecuteEX(SEI) lExecResult = WaitForSingleObject(SEI.hProcess, INFINITE) lExecResult = CloseHandle(SEI.hProcess)

← →
Digitman © (2004-05-07 13:19) [1]

> подсунуть например vbs

чего-чего "подсунуть" ? кому "подсунуть" ? что есть вообще "подсунуть" ? что есть vbs ?

← →
Sergey_Masloff (2004-05-07 13:43) [2]

Digitman © (07.05.04 13:19) [1]
Подсунуть файл со скриптом. Для Windows Script Host например. vbs это видимо имеется в виду файл VisualBasicScript.

fag2000
Фиг знает. Надо подумать. Но не твоим способом - тут ты ждешь завершения процесса а со скриптом все не так...

← →
blackman © (2004-05-07 15:53) [3]

Просто не торопись :)

← →
fag2000 (2004-05-11 14:48) [4]

← →
fag2000 (2004-05-11 19:30) [5]

Как дождаться завершения выполнения команды? Найти похожие ветки