Récupérer les lecteurs d'un pc en vba. (le drivelistbox du vb)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 541 fois - Téléchargée 22 fois

Contenu du snippet

L'objectif de ce code est de récupérer la liste complète des lecteurs d'un PC.

Source / Exemple :


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

Conclusion :


Ce code à été développé en VBA pour Autocad. Il utilise le Scripting Runtime (Objet système de fichiers).
Le problème que j'ai rencontré avec VBA, c'est qu'il n'existe pas le contrôle DriveListBox comme en Visual Basic.
J'ai donc cherché à le remplacer par ce code.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
66
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
29 septembre 2008

Merci pour ce code, car on toujours besoin d'exemple simple
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
Bonsoir,

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.
Messages postés
4
Date d'inscription
samedi 20 janvier 2007
Statut
Membre
Dernière intervention
11 juin 2008

Je n'ai pas vu que cela existait dans l'aide VBA.
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.
Messages postés
266
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
30 avril 2009

A quelques modifs près, ce code n'est ni puls ni moins qu'une retranscirption de l'aide dispo pour VBA !!???!!!!!


stls!
_______________________________________________
Toujours plus de VB6 et d'APi => API @ la loupe
http://xav.prog.power.fr
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,
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.