Vérifier qu'il y a bien un CD-Rom dans le lecteur [Résolu]

Messages postés
309
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
5 mars 2009
- - Dernière réponse : Thanos_the_yopper
Messages postés
309
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
5 mars 2009
- 27 juil. 2004 à 14:49
bon, ben tout est dans le titre ... j'aurais voulu savoir s'il y a un CD-Rom dans le lecteur (quelque soit le CD-Rom et ce qu'il contient, juste savoir s'il y en a un dedans)

merci d'avance :)

Final Fantasy Memories Venez découvrir les origines d'une saga
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
15
3
Merci
Ben c'est peut-être con mais Dir("X:\.") provoque une erreur s'il n'y a pas de disque dasn le lecteur (X étant la lettre de drive de ton lecteur CD)

Donc voici une ch'tite fonction
Function CDPresent(ByVal DriveLettre As String) As Boolean
On Error Goto NoCD
  Dir Left$(DriveLetter,1) & ":\."
  CDPresent = True
  Exit Function

NoCD:
  CDPresent = False
End Function


Christophe R.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 137 internautes nous ont dit merci ce mois-ci

Messages postés
309
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
5 mars 2009
0
Merci
ha ben oui, c'est pas con !
Justement, je faisais un Dir pour vérifier la présence d'un fichier sur le CD et si le CD n'était pas là, ça plantait ... ça ferait pas de mal de réfléchir de temps en temps !! ;)

merci bien ^^

Final Fantasy Memories Venez découvrir les origines d'une saga