Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 654 fois - Téléchargée 22 fois
Sub Prog_recherche_lecteurs() Dim Obj_FSO On Error Resume Next ' Créer une instance du FSO (Objet système de fichiers) Set Obj_FSO = CreateObject("Scripting.FileSystemObject") 'Parcourir tous les objets lecteurs du PC. For Each drvValue In Obj_FSO.Drives 'Ne pas tenir compte du lecteur A sinon il cherche quelques secondes pour trouver 'une disquette (Ca ralentie et c'est bruyant). If drvValue.DriveLetter <> "A" Then 'Regarder si le lecteur est disponible If drvValue.Isready Then 'Le lecteur est disponible alors, ajouter son nom dans la liste de ComboBox1 avec en plus ":\" 'au bout du nom pour pouvoir l'utiliser plus facilement dans un programme complet. ComboBox1.AddItem drvValue.DriveLetter & ":\" End If End If Next ' Libérer les objets Set Obj_FSO = Nothing End Sub
Voici des exemples un peu plus aboutis :
http://www.vbfrance.com/codes/PROPRIETES-LECTEURS_4895.aspx
http://www.vbfrance.com/codes/SCANNEUR-LECTEURS_20098.aspx
Je note 10, pour balancer l'injustice de la note 1. Quand on note 1, il faudrait tout même laisser un commentaire... sinon c'est celui qui note 1, le nul !
Amicalement,
Us.
Mon aide VBA Autocad est d'ailleurs en anglais et c'est la premier programme que je réalise en VBA. Je ne connaissais que le LISP.
J'ai mis du temps avant de tomber sur internet sur des explications de VBScript qui m'on permis de trouver cela.
stls!
_______________________________________________
Toujours plus de VB6 et d'APi => API @ la loupe
http://xav.prog.power.fr
C'est sympa pour les débutants, mais je ne pense pas(à mon avis) que ce code se place au niveau initié...Essaye de le compléter pour qui te donne les capacités de chaque lecteurs, le nom des lecteurs..etc...Fair quelque chose de plus consistant!lol
A+
Exploreur
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.