Je transforme un script Perl en un script VBS. Le script Perl renvoit un
code
erreur donnée si une condition donnée se réalise:
"....
if ($DateNow gt $DateFin)
{
exit 1;
}
else
{
exit 0;
}
..."
Comment peut on faire l'équivalent sous VBS (trapper le code erreur de
sortie). Avec VB, on pourrait utiliser l'API Private Declare Sub ExitProcess
Lib "kernel32" Alias "ExitProcess" (ByVal
uExitCode As Long) mais en VBS ???
Par "Err.Number" ?
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Claude BELLAMY
Dans le message news:40fcbacf$0$2461$ , DL s'est ainsi exprimé:
Bonjour,
Je transforme un script Perl en un script VBS. Le script Perl renvoit un code erreur donnée si une condition donnée se réalise: ".... if ($DateNow gt $DateFin) { exit 1; } else { exit 0; } ..."
Comment peut on faire l'équivalent sous VBS (trapper le code erreur de sortie). [...]
C'est ULTRA-SIMPLE !!!!
wscript.quit code-de-sortie (code-de-sortie étant un nombre, égal p.ex. à err.number, ou à ce qu'on veut ..)
if DateNow > DateFin then wscript.quit 1 else wscript.quit 0 end if
Ce code se retrouve ensuite dans %ERRORLEVEL%...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org http://www.bellamyjc.org *
Dans le message news:40fcbacf$0$2461$626a14ce@news.free.fr ,
DL <NOlauredoSPAMm@wanadoo.fr> s'est ainsi exprimé:
Bonjour,
Je transforme un script Perl en un script VBS. Le script Perl renvoit
un code
erreur donnée si une condition donnée se réalise:
"....
if ($DateNow gt $DateFin)
{
exit 1;
}
else
{
exit 0;
}
..."
Comment peut on faire l'équivalent sous VBS (trapper le code erreur de
sortie). [...]
C'est ULTRA-SIMPLE !!!!
wscript.quit code-de-sortie
(code-de-sortie étant un nombre, égal p.ex. à err.number, ou à ce qu'on veut
..)
if DateNow > DateFin then
wscript.quit 1
else
wscript.quit 0
end if
Ce code se retrouve ensuite dans %ERRORLEVEL%...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
Dans le message news:40fcbacf$0$2461$ , DL s'est ainsi exprimé:
Bonjour,
Je transforme un script Perl en un script VBS. Le script Perl renvoit un code erreur donnée si une condition donnée se réalise: ".... if ($DateNow gt $DateFin) { exit 1; } else { exit 0; } ..."
Comment peut on faire l'équivalent sous VBS (trapper le code erreur de sortie). [...]
C'est ULTRA-SIMPLE !!!!
wscript.quit code-de-sortie (code-de-sortie étant un nombre, égal p.ex. à err.number, ou à ce qu'on veut ..)
if DateNow > DateFin then wscript.quit 1 else wscript.quit 0 end if
Ce code se retrouve ensuite dans %ERRORLEVEL%...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org http://www.bellamyjc.org *
yves.grenet
Ce petit bout de code devrait te donner la réponse.
On Error Resume Next Err.Raise 6 ' Génère une erreur de dépassement. MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description Err.Clear ' Efface l'erreur.
Utilisez On Error GoTo 0 pour désactiver la gestion des erreurs si vous l'avez activée précédemment avec On Error Resume Next.
Ce petit bout de code devrait te donner la réponse.
On Error Resume Next
Err.Raise 6 ' Génère une erreur de dépassement.
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear ' Efface l'erreur.
Utilisez On Error GoTo 0 pour désactiver la gestion des erreurs si
vous l'avez activée précédemment avec On Error Resume Next.
