IMHO.WS - Visual Basic 6: Код возврата программы

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - Visual Basic 6: Код возврата программы (https://www.imho.ws/showthread.php?t=108187)

Visual Basic 6: Код возврата программы

Вопрос заключается в следующем:
из проекта visual basic запускается программа с командной строкой, так вот она по идее возвращает код возврата (ну или ко ошибки), как её прочитать? shell и createprocess выдают свои коды ошибки! а как прочитать именно код возврата запущенного приложени?????

Вот что в MSDN нарыл:

Код:

The following example returns the error code from the executed application: 

Set WshShell = WScript.CreateObject("WScript.Shell")

Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, TRUE)

Так что в барсике можно написать что-нить наподобие:

Код:

Dim WshShell, ret

    Set WshShell = CreateObject("WScript.Shell")

    ret = WshShell.Run("rar a -m5 -md1024 -u -rr -r d:\temp\v.rar d:\temp\v", 1, True)

P.S. Можно также посмотреть в сторону API-функции GetExitCodeProcess(), но приведенный вариант мне кажется проще =)

Большое спасибо! Я уже сам разобрался! что-то типа этого я и использовал!!