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 ...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Prérequis
Suivant
Corrigé 18.2 Créer, gérer et supprimer les dossiers et les sous-dossiers