How to exit a VB6 program returning an errorlevel to MS-DOS

[jajest]

can somebody explain me how to end a VB6 program and set the value for errorlevel ? this is a value that a program returns when it was called from a DOS prompt.

I want to be able to set this value before exiting my program.

thanx.

 

[rdroske]

API call

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

' Exit with ErrorLevel set to 9
ExitProcess 9



Not sure of all ramifications myself so use at own risk.

 

[jajest]

doesn't work.

the only things that happens is that my application exits at the command but no errorlevel is given.

 

[strongm]

Hmm.

It works for me. I've been using this method for years. What, precisely, are you expecting to happen?

 

[rdroske]

Me too, post what you are trying to with the errorlevel maybe?

 

[jajest]

Ok, here it comes:

let's keep it simple:

the project consists of 1 module (module1.bas) and no forms.
the name of the project is LOKCHECK. The executable will be LOKCHECK.exe

the module looks like this:

Public a As Integer
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

Sub Main()
a = 5
ExitProcess (a)
End Sub


I know this looks stupid and makes no sense. It is only an example to help me to explain to you guys how I do it.

In fact, the exitcode that I want to return will depend on a condition that has nothing to dowith the problem here.

So, what do I do. I compiled a LOKCHECK.EXE. I open DOS box in W2K. I type 'LOKCHECK'. the program executes and returns to the DOs prompt. Then I type 'echo %errorlevel%'
I thought to see 5 as a result but it always shows 0.


Ps: the strange thing is when I'm running this program in the VB6 editor and press the RUN button, not only the program exits but also my VB6 itself also...

 

[strongm]

>I thought to see 5

Ah, but you thought wrong. This will only work if both the commands are in a batch file

>not only the program exits but also my VB6 itself also...

It would do. The owning process for a VB program in the IDE is the IDE itself. So, when you ExitProcess, you terminate the IDE

 

[jajest]

TO StrongM:

you're right! it works.

the problem was that I was testing this thing in DOS box interactive mode, not through a batch-file.

thanks for the help.


Marc