Disquette présente?

Commenter

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

S'inscrire maintenant

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.

Du même auteur (soulmanto)