On Error Goto Résolu

Question

Bonjour,

J' ai un souci avec On Error Goto

Je vous explique :

J' ouvre 2 fichiers qui sont dans un dossier X, ce dossier peut être verrouillé et c' est là que mon On Error Go To intervient
Car si tout va bien, tout va bien

Mais si le dossier est verrouillé, je voudrais afficher une msgbox, indiquant à l' utilisateur de déverrouiller le dossier.

Voilà ce que j' ai fait, sauf que la msgbox s' affiche à chaque fois même quand tout va bien

On Error GoTo ErreurOuv

Code Blablablablabla

ErreurOuv :

Dim

 msg 
As
String

Dim title 
As
String

Dim style 
As MsgBoxStyle

Dim response 
As MsgBoxResultmsg = 

"Le dossier les contenant les fichiers doit être déverrouillé !"
' Define message.style = MsgBoxStyle.Exclamation 

Or MsgBoxStyle.OkOnlytitle = 

Erreur !"
' Define title.

' Display message.response = MsgBox(msg, style, title)

If response = MsgBoxResult.Ok 
Then
' User chose Ok.

End
IfOù est ce que j' ai fait une bourde ? Est ce que j' ai une erreur qui se produit sans interférer l' exécution de mon programme ?

Merci par avance

Fripouil

NHenry · Accepted Answer

Bonjour,

En .NET, ne JAMAIS utiliser On Error GOTO, mais plutôt : 
Try
...
Catch ex as exception
...
end try

http://nhen0039.chez-alice.fr/index.php

cs_Orohena · Answer

Hello

Mets un Exit Sub (ou un Exit Function) juste avant l'étiquette ErreurOuv:

Amicalement

us_30 · Answer

Bonjour,

Bah, je n'analyserais pas ton code, mais te ferais une simple remarque... Sous VB.NET "on error goto" est surement une syntaxe un peu dépassée... d'ailleurs ne fonctionne que pas compatibilité à VB6, je pense...
Il faudrait mieux essayer une syntaxe : TRY , CASH etc. Regarde de se côté là.

Amicalement,
Us.

cs_Fripouil · Answer

Merci à tous, je ne connaissais pas : Try / catch 
mais On error Goto fonctionne aussi.

C' est cool, j' en apprends tous les jours lol
Fripouil

us_30 · Answer

Mouais... Catch... 

Amicalement,
Us.

cs_Orohena · Answer

J'avais pas fait attention au fait qu'on était en .Net. Je pense qu'On Error Goto est supporté uniquement pour des raisons de compatibilité. Mais en .Net, Try est la bonne méthode.


Amicalement

On Error Goto

6 réponses

Votre réponse

Discussions similaires