On Error Goto

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 AsString

Dim title AsString

Dim style As MsgBoxStyle

Dim response As MsgBoxResult

msg =

"Le dossier les contenant les fichiers doit être déverrouillé !"' Define message.

style = MsgBoxStyle.Exclamation

Or MsgBoxStyle.OkOnly

title =

Erreur !"' Define title.

' Display message.

response = MsgBox(msg, style, title)

If response = MsgBoxResult.Ok Then' User chose Ok.

EndIfOù 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

Hello

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

Amicalement

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.

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

Mouais... Catch...

Amicalement,
Us.

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