benb78
Messages postés5Date d'inscriptionvendredi 7 juin 2002StatutMembreDernière intervention12 juin 2002
-
11 juin 2002 à 21:05
cs_Kadra
Messages postés7Date d'inscriptionmercredi 28 juillet 2004StatutMembreDernière intervention18 janvier 2008
-
29 juin 2005 à 23:16
Bonjour à tous,
J' aimerai, lorsque j'introduis un cdrom dans mon lecteur, pouvoir lister tous les fichiers qu'il contient et enregistrer cette liste dans un fichier.
J'a pu me débrouiller pour lister les fichiers d'un repertoire de mon disue dur, mais je ne sais pas comment accéder au cdrom.
Ca serait vraiment sympa si quelqu'un pouvait m'aider car dur dur de débuter....
cs_Zan
Messages postés174Date d'inscriptionjeudi 18 avril 2002StatutMembreDernière intervention25 mai 2006 12 juin 2002 à 09:17
salut,
je ne vois pas ou est le probleme...
il suffit que tu listes les fichiers de ton repertoire E:\ (enfin le chemin de ton cd-rom !)
pour faire ca, moi j'utilise les API FindFirstFile, FindNextFile et FindClose et ca marche tres bien.
benb78
Messages postés5Date d'inscriptionvendredi 7 juin 2002StatutMembreDernière intervention12 juin 2002 12 juin 2002 à 19:15
Salut,
Je ne pige pas, parceque qd je lui demande de lister le disque dur, le programme fonctionne bien mais qd je lui demande de lister mon cdrom (E) ,il bloque!!!!!
cs_Kadra
Messages postés7Date d'inscriptionmercredi 28 juillet 2004StatutMembreDernière intervention18 janvier 2008 29 juin 2005 à 23:16
Bonjour,
le sujet est resolu,mais le cd rom (sans utilisation d' api par exemple ) n' est peut être pas ready(accessible).
'Fonction de Test de disponobilité de Lecteur
Public Function DriveIsReady(Drive_Path) As Boolean
Dim fs, d
Err.Clear
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(Drive_Path)
DriveIsReady = d.isready
Set fs = Nothing
End Function