dans une DriveListBox j'ai prévu une reprise d'erreur au cas où l'utilisateur sélectionne un disque inexistant (CD par exemple) :
Private Sub Drive1_Change()
On Error GoTo nodisc
Dir1.Path = Drive1.Drive
Exit Sub
nodisc:
MsgBox "Erreur ! Disque indisponible !", vbCritical, "Erreur"
Drive1.Drive = DriveEnCours
On Error GoTo 0
End Sub
où DriveEnCours est un string contenant le disque précédemment choisi
Ca marche très bien en mode exécuté, depuis VB6, mais dès que je compile le programme et essaie l'exe, j'obtiens bien le MsgBox mais aussi une erreur 68 qui plante le programme.
Quelqu'un a une idée pour que ca marche aussi en mode compilé ?
Non, DriveEnCours contient bien une bonne valeur, puisque le code marche en interprété.
J'ai trouvé une solution, ca marche maintenant mais je ne comprends pas pourquoi : j'ai supprimé la MsgBox, et ca marche en compilé aussi ! Sans rien changer d'autre ... Mystère de VB6 !
Je considère ce topic comme résolu donc, à moins que quelqu'un puisse expliquer le pourquoi de la chose ?