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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_The Mailman)