Récupérer le numéro du fichier qui plante

Question

Bonjour, 

j'ai fais une appli VB6 qui g&#232;re un certain nombre de fichier
Vu que c'est pour une entreprise, j'fais ca proprement et l&#224; j'en suis &#224; la gestion d'erreur
Donc j'ai fait une fonctione qui prend en parametre le num&#233;ro de l'erreur, et en option le nom du fichier qui plante et son num&#233;ro (le meme num&#233;ro que dans open chemin for machin as num&#233;ro) et qui gere selon le num&#233;ro de l'erreur le message d'erreur &#224; afficher et le traitement &#224; effectuer (en fait le plus important c'est de fermer les fichiers qui pourraient rest&#233; ouverts apres qu'une fonction ai plant&#233;e )
Probl&#232;me : dans certaines fonctions, ya plusieurs fichiers diff&#233;rents qui sont utilis&#233;s, donc plusieurs num&#233;ros
Question : est-ce que l'objet err (ou n'importe quoi d'autre ) peut dire quel num&#233;ro de fichier &#224; provoquer l'erreur ?

ou bien une id&#233;e de m&#233;thode pour g&#233;rer les erreurs de ce style? 

-----------------------------------------------------------------------

"La meilleure facon de dire, c'est faire"


Ernesto Guevara de la Serna

Zlub · Answer

Salut,

Fais toi une variable avec le num&#233;ro du fichier courrant ... et hop tu interroge cette variable et l'affaire est dans le sac ..



genre



Private Sub look()



dim fileNumber as single



On Error GoTo perdu

fileNumber = 1



' Traitements divers ...



fileNumber = 12

1/0 ' erreur  !!


Exit Sub



perdu:

Debug.Print "Erreur dans le source : " & Err.Source & " fichier : " & fileNumber 



End Sub



++

Zlub

Récupérer le numéro du fichier qui plante

1 réponse

Discussions similaires