IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Intercepter les erreurs dans un vbs


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2009
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2009
    Messages : 30
    Par défaut Intercepter les erreurs dans un vbs
    Bonjour,

    Est-il possible d'intercepter automatiquement des erreurs d'exécution vbs dans une procédure particulière (par exemple une procédure dédiée au traitement des erreurs) ?

    Merci pour votre aide.

  2. #2
    Membre éclairé
    Homme Profil pro
    Programmeur fou
    Inscrit en
    Octobre 2010
    Messages
    363
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Programmeur fou

    Informations forums :
    Inscription : Octobre 2010
    Messages : 363
    Par défaut
    Bin oui, comme ça (par exemple) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
     
    '+
    ' error_handler.vbs
    ' Error handling test
    ' Usage: cscript /nologo error_handler.vbs
    '
    ' v1.0-0 13-oct-2010 DTL Didier.Morandi at gmail dot com
    '-
    Option Explicit
     
    dim obj_file, filename, filespec, status, severity
    const for_reading = 1, for_appending = 8, fatal_error = 1, not_fatal = 0
     
    on error resume next
     
    'file object creation
    wscript.echo "Creating file object"
    set obj_file = createobject("scripting.filesystemobject")
    call err_handler(fatal_error)
    wscript.echo "File object successfully created." & vbcrlf
     
    'let's ask for the full file name spec.
    wscript.stdout.write "Enter full filename specification <RET>=end: "
    filespec = wscript.stdin.readline
    if filespec = "" then wscript.quit 0
     
    'we open the file - if we fail, script stops
    wscript.stdout.writeline "Opening file " & filespec
    set filename = obj_file.opentextfile(filespec, for_reading, false)
    call err_handler(fatal_error)
    wscript.echo "File successfully opened for READING." & vbcrlf
     
    'if file exists, we write into it, close it and exit
    'we fail because file is opened in READ mode. Let's decide it's not a fatal error
    wscript.echo "Writing into file (should trigger an error)"
    filename.writeline "Hello World"
    call err_handler(not_fatal)
     
    'same for close, if it is already closed
    wscript.echo "Closing file"
    filename.close
    call err_handler(not_fatal)
     
    wscript.echo "Done."
    wscript.quit 0
     
    '--------------------------------------------------------------------
    sub err_handler(severity)
    status = err.number
    if status <> 0 then
      wscript.echo err.source
      if severity = 0 then
        wscript.echo "Error " & status & " - " & err.description
        wscript.echo ""
        err.clear
      else
        wscript.echo "Fatal Error " & status & " - " & err.description
        wscript.echo "Abort."
        wscript.quit 1
      end if
    end if
    end sub

Discussions similaires

  1. Intercepter les erreurs cmd dans un vbs
    Par fleurparis dans le forum VBScript
    Réponses: 8
    Dernier message: 07/09/2010, 13h56
  2. afficher les erreurs dans la page jsp
    Par jawed84 dans le forum Struts 1
    Réponses: 6
    Dernier message: 04/01/2008, 18h54
  3. [TASM] Quelles sont les erreurs dans ce programme ?
    Par S.H dans le forum x86 16-bits
    Réponses: 7
    Dernier message: 25/12/2007, 22h05
  4. [EXCEL 2003] gérer les erreur dans les formules
    Par aityahia dans le forum Excel
    Réponses: 2
    Dernier message: 15/05/2007, 10h29
  5. Intercepter les erreurs d'une commande ?
    Par Olivier Regnier dans le forum Linux
    Réponses: 2
    Dernier message: 01/12/2006, 12h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo