recupérer le code erreur en sortie de script

2 réponses

Dom

20/07/2004 à 00:12

Bonjour,

Je transforme un script Perl en un script VB. Le script Perl renvoit un code
erreur donné sur une condition donné se réalise:
"....
if ($DateNow gt $DateFin)
{
exit 1;
}
else
{
exit 0;
}
..."

Comment peut on faire l'équivalent sous VB (trapper le code erreur de
sortie).
Par "Err.Number" ?
Merci

Dom

2 réponses

20/07/2004 à 07:39

Salut,

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

If bCondition Then
Call ExitProcess(1)
Else
Call ExitProcess(0)
End If

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/

Dom a écrit :

Bonjour,

Je transforme un script Perl en un script VB. Le script Perl renvoit
un code erreur donné sur une condition donné se réalise:
"....
if ($DateNow gt $DateFin)
{
exit 1;
}
else
{
exit 0;
}
..."

Comment peut on faire l'équivalent sous VB (trapper le code erreur de
sortie).
Par "Err.Number" ?
Merci

Dom

François Picalausa

20/07/2004 à 07:57

Hello,

Attention toutefois que toutes les ressources devraient avoir été libérées
avant d'appeler cette API, elle se chargera de quelques handles, mais pas de
l'entièreté de l'app!
Voir ceci: http://support.microsoft.com/default.aspx?scid=kb;fr;288216

Il est possible au linking de changer la ligne de commande et le point
d'entrée (/ENTRY:__vbaS) ce qui permet sans doutes de revoyer un code
d'erreur... cela demanderait aussi d'initialiser le runtime à la main!

S'il faut retourner un code de sortie en VB6, il faut aussi envisager de
l'écrire dans un fichier, d'utiliser des pipes, zone de mémoire partagée ou
tout autre moyen de communication interprocess...

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"ng" a écrit dans le message de
news:%

Salut,

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

If bCondition Then
Call ExitProcess(1)
Else
Call ExitProcess(0)
End If

Bonjour,

Je transforme un script Perl en un script VB. Le script Perl renvoit
un code erreur donné sur une condition donné se réalise:
"....
if ($DateNow gt $DateFin)
{
exit 1;
}
else
{
exit 0;
}
..."

Comment peut on faire l'équivalent sous VB (trapper le code erreur de
sortie).
Par "Err.Number" ?
Merci

Dom

recupérer le code erreur en sortie de script

2 réponses

Veuillez sélectionner un problème