[VB6] capter une erreur

Marsh Posté le 25-03-2005 à 09:10:26

Bonjour,

Je voudrais savoir comment est ce que je peux capter une erreur spécifique.

Par exemple :
J'ai une form pour la copie d'un fichier d'un emplacement source vers un emplacement de destination.

FileCopy Source.Text, Dest.Text

Si il y a une erreur dans les chemins pour la copie j'ai cette erreur :

Run-time error '53'
File not found

J'aimerais pouvoir capter rien que l'erreur 53 pour pouvoir afficher un message spécifique pour cette erreur.

Comment dois-je faire ?

Merci d'avance.

Marsh Posté le 25-03-2005 à 09:10:26

Marsh Posté le 25-03-2005 à 11:46:16

Code :

On Error Goto quelquechose
'
'lignes de code
'
Exit Sub
'Comme cela, on est sur qu'il ne passe pas dans la boucle
Select Case Err.Numbre
Case 0 'Tout est ok
Exit Sub
Case 1
Msgbox "Erreur détectée de Type 1"
Exit Sub
Case 2 '....
Msgbox "Erreur : " & Err.Number & Chr(10) & Err.Description , , "Erreur"
Case Else 'Si l'erreur n'est pas une référencée
End Select ' a ne pas oublier

Voilà

Message édité par knakes le 25-03-2005 à 11:49:25

Marsh Posté le 25-03-2005 à 11:49:10

knakes a écrit :

on error goto quelquechose

ensuite tu mets :

quelquechose:
Select Case Err.Number
case 'mets le n° de ton erreur
'traitement
Case Else

end select

Marsh Posté le 25-03-2005 à 11:50:29

Désolé tigrou libre, j'étais en train d'écrire ...

Marsh Posté le 25-03-2005 à 12:04:19

menteur je t'ai grilléééé!!!!

t'as vu l'heure de ton edit!!!!

en plus c'est pas la peine de mettre

case 0

!!!! tu n'aura jamais ce cas la!

Message édité par tigrou libre le 25-03-2005 à 12:06:36

Marsh Posté le 26-03-2005 à 23:26:58

Pour quelques secondes ... humm ...
Pour le "Case 0", c'est rare mais tu peux en avoir besoin si ta gestion d'erreur est centralisée. Défois aussi, il faut que l'erreur retournée soit -1 -> l'erreur 0 est bien une erreur.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *