Comment gérer les erreurs dans un Script VB

Je vais avoir un Script VB. J'ai besoin d'enregistrer les informations d'erreur dans un fichier. J'ai besoin de connecter toutes les informations comme le numéro d'erreur description de l'erreur et dans lequel la sous-routine ne l'erreur s'est produite.

Veuillez fournir des code de

  • Il pourrait être préférable si vous avez expliqué pourquoi vous croyez que vous avez besoin de cette fonction. Franchement VBScript erreur de manipulation très faible, il n'y pas de moyen pratique pour atteindre ce que vous avez décrit jusqu'à présent.
InformationsquelleAutor balaweblog | 2008-10-16
  1. -3

    Pour le traitement des erreurs dans VBScript est utilisé "Sur l'Erreur" clausule.
    Il existe 3 façons, comment gérer les erreurs:

    • On Error Resume Next " ignorer les erreurs
    • On Error GoTo 0 " supprime l'erreur handlning
    • On Error GoTo HandleError " sur erreur de code de saut de signal spécifiée

    Échantillons:

    On Error Resume Next '' ignore errors
SomeIgnorableFunction()

On Error GoTo 0 '' removes error ignoring
SomeImportantFunction()

On Error GoTo HandleError '' on error will code jump to specified signal
Dim a
a = 15 / 0

GoTo Finish '' skips error handling

HandleError:
Dim msg
Set msg = Err.Description & vbCrLf & Err.Number
MsgBox msg

Finish:
'' there is end of sciprt
    • T'est pas un on Error GoTo Gestionnaire de fonctionnalité dans VBScript, ni un Goto en VBScript
    InformationsquelleAutor TcKs
  2. 3

    Vous pouvez faire usage de la FileSystemObject et la Erreur objet si vous êtes à l'aide de VBScript.

    Collez le texte suivant dans l'erreur.vbs et de l'exécuter. Il lèvera une erreur puis enregistrer les détails d'un fichier appelé c:\errors.log

    Option Explicit

On Error Resume Next ' Potential error coming up
Dim MyArray(5)
MyArray(7) = "BWA HA HA"
If Err.Number <> 0 Then
    LogError(Err)
    Err.Clear
End If
On Error Goto 0 ' Stop looking for errors 

Sub LogError(Details)
    Dim fs : Set fs = CreateObject("Scripting.FileSystemObject")
    Dim logFile : Set logFile = fs.OpenTextFile("c:\errors.log", 8, True)
    logFile.WriteLine(Now() & ": Error: " & Details.Number & " Details: " & Details.Description)
End Sub

    Si vous utilisez une page ASP, vous pouvez faire usage de ASPError pour obtenir des informations plus détaillées sur l'erreur comme un numéro de ligne, etc (n'oubliez pas de remplacer CreateObject avec le Serveur.CreateObject).

    Edit:
    Pour obtenir le numéro de la ligne qui a provoqué l'erreur .vbs script vous pouvez ajouter un paramètre à la sous-routine.

    InformationsquelleAutor jammus
  3. 2

    VBScript ne prend pas en charge on error goto étiquette. Le morceau de code suivant ne fonctionnera jamais -:

    On Error GoTo HandleError " sur erreur de code de saut de signal spécifiée

    Dim aa = 15 /0

    GoTo Terminer " ignore l'erreur

    handlingHandleError:

    Dim msgSet

    msg = Err.Description & vbCrLf & Err.Nombre

    MsgBox msgFinish:" il est en fin de sciprt

    InformationsquelleAutor
  4. 1

    Mettre l'ensemble de votre sub ou la fonction à l'intérieur d'une boucle (ou autre boucle). Mettez votre gestion d'erreur à l'extérieur de la boucle

    private sub BucketList()
do while 1=1
  ClimbMountain(top)
    if err.Number <> 0 then exit do
  SwimOcean(deep)
    if err.Number <> 0 then exit do
  GiveErrorHandlingToVBS(isNeverGoingToHappen)
    if err.Number <> 0 then exit do

  exit do
loop

'Error Handler
if err.Number <> 0 then
  'handle error
end if

end sub
    InformationsquelleAutor Larry