Disquette présente?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 830 fois - Téléchargée 47 fois

Contenu du snippet

lors d'un changement de lecteur dans un DriveListBox, gère l'erreur de disquette non insérée, et évite ainsi un plantage de l'appli.

Source / Exemple :


on error goto trterr
...

...
trterr:
if err.Number = 68 then
  If Drive1.Drive = "a:" Then
     valeur = MsgBox("Veuillez insérer une disquette dans le lecteur", vbOKOnly + vbCritical,  "Erreur")
     Exit Sub 
  Else
     MsgBox "Erreur avec le lecteur '" & Drive1.Drive & "'"
     Exit Sub
End If

Conclusion :


inclure le code dans la procédure de changement de lecteur et bien sûr remplacez "Drive1" par le nom de votre DriveListBox. Peut aussi être adapté pour les lecteurs amovibles ou CD/DVD. Y'a qu'à changer le message de la MsgBox. Mettez bien le bloc "trterr:" en fin de procédure, c'est plus pratique!

A voir également

Ajouter un commentaire Commentaires
Messages postés
78
Date d'inscription
mardi 8 avril 2003
Statut
Membre
Dernière intervention
25 janvier 2007

question, je vx faire un bouton et qd je clik dessus une boite de dialogue s'affiche me dit si la disquette existe ou pas
merci d'avance
Messages postés
55
Date d'inscription
mercredi 31 juillet 2002
Statut
Membre
Dernière intervention
19 novembre 2004

il manque juste un petit endif à la fin
sinon c'est très bien et très très utile
bravo
Messages postés
39
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
16 avril 2005

super ! très pratique

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.