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

Résolu
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 à 12:19
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

2 réponses

crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
27 juil. 2004 à 13:14
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.
3
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
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
0