ник: filosof
функция написанная не мной извините автора не знаю Наверное пробелемы с константами возникнут потому что выципел из модуля с WinApi функциями
Public Function RunAndWait(ComLine As String, DefaultDir As String, ShowFlag As Long) As Boolean
Dim si As STARTUPINFO
Dim pi As PROCESS_INFORMATION
si.wShowWindow = ShowFlag
si.dwFlags = STARTF_USESHOWWINDOW
If CreateProcess(vbNullString, ComLine, ByVal 0&, ByVal 0&, False, 0, ByVal 0&, DefaultDir, si, pi) Then
WaitForSingleObject pi.hProcess, INFINITE
CloseHandle pi.hProcess
RunAndWait = True
Exit Function
End If
RunAndWait = False
End Function