Thanos_the_yopper
Messages postés309Date d'inscriptionvendredi 9 janvier 2004StatutMembreDernière intervention 5 mars 2009
-
27 juil. 2004 à 12:19
Thanos_the_yopper
Messages postés309Date d'inscriptionvendredi 9 janvier 2004StatutMembreDerniè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)
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 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
Thanos_the_yopper
Messages postés309Date d'inscriptionvendredi 9 janvier 2004StatutMembreDerniè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 !! ;)