Comment detecter le cd
cs_atchum
Messages postés
12
Date d'inscription
mardi 16 avril 2002
Statut
Membre
Dernière intervention
28 août 2003
-
14 déc. 2002 à 21:05
cs_Tresor Messages postés 38 Date d'inscription jeudi 24 octobre 2002 Statut Membre Dernière intervention 1 mai 2006 - 15 déc. 2002 à 16:29
cs_Tresor Messages postés 38 Date d'inscription jeudi 24 octobre 2002 Statut Membre Dernière intervention 1 mai 2006 - 15 déc. 2002 à 16:29
1 réponse
cs_Tresor
Messages postés
38
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
1 mai 2006
15 déc. 2002 à 16:29
15 déc. 2002 à 16:29
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 ! ;)
*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 ! ;)