Disquette présente?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 981 fois - Téléchargée 48 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
mourad183 Messages postés 78 Date d'inscription mardi 8 avril 2003 Statut Membre Dernière intervention 25 janvier 2007
12 mai 2004 à 13:58
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
GarnetDiAlexandros Messages postés 55 Date d'inscription mercredi 31 juillet 2002 Statut Membre Dernière intervention 19 novembre 2004
25 sept. 2002 à 09:37
il manque juste un petit endif à la fin
sinon c'est très bien et très très utile
bravo
fbrt Messages postés 39 Date d'inscription lundi 25 février 2002 Statut Membre Dernière intervention 16 avril 2005
4 mars 2002 à 09:51
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.