RÉCUPÉRER LES LECTEURS D'UN PC EN VBA. (LE DRIVELISTBOX DU VB)

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