Terminate the process with an ErrorLevel code

Terminate the process with an ErrorLevel code

If your VB application is meant to be called from within a Ms-Dos batch file, you must be able to return Dos an error code. This can be accomplished using the ExitProcess API function:

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)' terminate the program and return ErrorLevel = 3ExitProcess 3

Note that the ExitProcess API function is similar to the END command, in that it prevents all the usual clean up code from executing. Therefore, you must call it only after you’ve manually closed all forms, files and databases, released all memory and resources allocated through Windows, etc.

The following Ms-Dos batch program demonstrates how you can test the ErrorLevel returned by the VB application

START /W project1REM ErrorLevel codes must be tested in reverse orderIF ERRORLEVEL 5 GOTO Err5IF ERRORLEVEL 4 GOTO Err4IF ERRORLEVEL 3 GOTO Err3IF ERRORLEVEL 2 GOTO Err2IF ERRORLEVEL 1 GOTO Err1ECHO ErrorLevel = 0 GOTO Exit:Err1ECHO ErrorLevel = 1GOTO Exit:Err2ECHO ErrorLevel = 2GOTO Exit:Err3ECHO ErrorLevel = 3GOTO Exit:Err4ECHO ErrorLevel = 4GOTO Exit:Err5ECHO ErrorLevel = 5:ExitREM End of batch file

Note that you must use the syntax START /W if you’re running under Windows 95.


Share the Post: