vérifier qu'il y a bien un CD-Rom dans le lecteurRésolu

Question

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

crenaud76 · Accepted Answer

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.

Thanos_the_yopper · Answer

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

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

2 réponses

Discussions similaires