Nombrede sous-répertoires

[Pierre31]

Bonjour à toutes et tous,

Par VBA peut-on connaître le nombre de sous répertoires contenus dans un répertoire racine, par exemple le nonmbre de sous-répertoires dans "C:\Test"

D'avance merci pour vos réponses.

Cordialement

Bon après midi

 

[gwenlorin]

Re : Nombrede sous-répertoires

Bonjour,

code issu du site : Ce site n'existe plus

Sub TousLesDossiers(LeDossier$, Idx As Long)
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier = fso.GetFolder(LeDossier)
  
  'examen du dossier courant
  For Each Flder In Dossier.subfolders
      Idx = Idx + 1
      Cells(Idx, 1).Value = Flder.Path
  Next
  
 'traitement récursif des sous dossiers
  For Each sousRep In Dossier.subfolders
   TousLesDossiers sousRep.Path, Idx
 Next sousRep
  
  Set fso = Nothing
   
End Sub 'fs

Sub test()
  TousLesDossiers "c:\Program Files", 0
End Sub

La macro "TousLesDossiers" liste tous les sous répertoires d'un répertoire de départ.
Si tu renvoie la valeur Idx tu auras le nombre de sous répertoires trouvés.

Attention : la macro recherche aussi les sous-répertoires contenus dans les sous-répertoires trouvés (comme les poupées russes en somme). Si tu ne souhaite pas une recherche aussi poussé supprime le code :

  'traitement récursif des sous dossiers
  For Each sousRep In Dossier.subfolders
    TousLesDossiers sousRep.Path, Idx
 Next sousRep

la macro test porte bien son nom.

J'espère que c'est ce que tu voulais

 

[Pierre31]

Re: Re : Nombrede sous-répertoires

Bonjour gwenlorin,

Merci pour ta réponse, c'est exactement ce que je voulais.

Cordialement

Pierre

 

[Catrice]

Re : Nombrede sous-répertoires

Bonjour,

Tu peux utiliser ceci :

Sub Test()
Chemin = "C:\Test"
Set Dossier = CreateObject("Scripting.FileSystemObject").getFolder(Chemin)
MsgBox Dossier.SubFolders.Count
End Sub

Edit : Bonjour gwenlorin