Comment detecter le cd

Signaler
Messages postés
12
Date d'inscription
mardi 16 avril 2002
Statut
Membre
Dernière intervention
28 août 2003
-
Messages postés
38
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
1 mai 2006
-
Comment detecter l'insertion d'un cd dans le lecteur.

1 réponse

Messages postés
38
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
1 mai 2006

Je vais te proposer une ptite solution:

*Dans ta form, tu crée un control Timer et tu met l'interval à 3000.

*Tu crée un control Dir1 (qui permet de voir les repertoires dans un lecteur).

*tu crée enfin un label1

Et dans le code du timer, tu met ceci:

On Error GoTo GestionErreur
Dir1.path = "d:" 'ou le nom de ton lecteur cd
msgbox("Il y a un cd dans le lecteur !")
exit sub

GestionErreur:
Label1.caption = "pas de cd dans le lecteur"

Comme tu le remarque, mon code test la presence du cd chaque 3 secondes, et en cas d'erreur, il retourne le message "pas de cd dans le lecteur"

en cas de problème, repond moi et je vais te faire la source complète dans un zip ! ;)
0