Lister les partitions, lecteurs CD/DVD, ... d'un ordinateur

Page 1 / 1

Pour ce tutoriel, vous aurez besoin d'un "ComboBox" avec comme propriétés :
- Name : CBOX_liste_lecteurs
- DropDownStyle : DropDownList

 

Pour lister les partitions, lecteurs CD/DVD, lecteurs disquettes, disques amovibles, ... vous devez tout d'abord importer l'espace de nom "System.IO" qui contient tout ce qui sert à la gestion des fichiers, ...
Pour cela, ajoutez la ligne suivante tout en haut du fichier, avant la déclaration de votre classe :

VB.NET

Imports System.IO

Ensuite, vous devrez utiliser la fonction "IO.DriveInfo.GetDrives()" qui retourne un tableau de lecteurs de type "IO.DriveInfo". Nous allons donc le parcourir avec une boucle "For Each".

VB.NET

' On parcoure la liste des lecteurs
For Each lecteur As IO.DriveInfo In IO.DriveInfo.GetDrives()

  ' Detection du type de lecteur
  Dim type_de_lecteur As String = ""
  If lecteur.DriveType = DriveType.Fixed Then
    type_de_lecteur = "Disque local"
  ElseIf lecteur.DriveType = DriveType.CDRom Then
    type_de_lecteur = "Lecteur CD-Rom"
  ElseIf lecteur.DriveType = DriveType.Network Then
    type_de_lecteur = "Lecteur Réseau"
  ElseIf lecteur.DriveType = DriveType.Removable Then
    type_de_lecteur = "Disque Amovible"
  ElseIf lecteur.DriveType = DriveType.Unknown Then
    type_de_lecteur = "Inconnu"
  End If
  
  ' On ajoute le nom du lecteur ainsi que son type dans la liste des lecteurs
   CBOX_liste_lecteurs.Items.Add(lecteur.Name & " (" & type_de_lecteur & ")")
   
Next

' On sélectionne le premier élément de la liste (du ComboBox)
CBOX_liste_lecteurs.SelectedIndex = 0

Voici un aperçu du résultat final :

Télécharger la source