Corrigé 18.2 Créer, gérer et supprimer les dossiers et les sous-dossiers

Sub CréerMonde() 
   Dim fso As Scripting.FileSystemObject 
   Dim drvUnité As Scripting.Drive 
   Dim strRacine As String 
   Dim intNbContinents As Integer 
   Dim intNoContinent As Integer 
   Dim intNoPays As Integer 
   Dim intNbPays As Integer 
   Dim rngPays As Range 
   Dim strContinent As String 
   Dim strPays As String 
 
   Set fso = New Scripting.FileSystemObject 
   Set rngPays...
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
Corrigé 18.1 Gérer et utiliser les unités logiques
Suivant
Corrigé 18.3 Copier, déplacer et supprimer les fichiers