Corrigé 18.1 Gérer et utiliser les unités logiques

Sub ListeUnitésLogiques() 
   Dim fso As Scripting.FileSystemObject 
   Dim intLigne As Integer  
   Dim drvUnité As Scripting.Drive 
 
   ' Instanciation de l'objet FileSystemObject 
   Set fso = New Scripting.FileSystemObject 
 
   With Worksheets("Unités") 
       .Range("A1").CurrentRegion.Offset(1, 0).ClearContents 
       intLigne = 2 
 
       ' Balayage de la collection des unités logiques 
       For Each drvUnité In fso.Drives 
           .Cells(intLigne, 1).Value = drvUnité.DriveLetter ...