Discussion :

[GBAGO]

Bonjour à tous,

Je voulais écrire un programme qui me permet de compter les sous-répertoires d'un répertoire.
N'ayant pas trouvé de fonction spécifique comme celle qui permet de compter le nombre de fichier d'un répertoire, je suis obligé de parcourir avec une boucle qui ralenti mon programme.
Quelqu'un a-t-il une solution?

Meilleures salutations.

[ouskel'n'or]

Regarde là ainsi que dans les liens "sous-jacents", tu devrais pouvoir t'en sortir

[GBAGO]

Bonjour!!!

Je pense que la programme suivant est une des solutions à mon problème.
La fonction f.subfolders.Count me permet de résoudre le problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
sub testrecupfolder()
Dim fs, f, f1, s, sf, compteur
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("C:\profiles")
    Set sf = f.subfolders
    compteur = f.subfolders.Count
    MsgBox compteur
    For Each f1 In sf
        s = s & f1.Name
        's = s &
        MsgBox s
    Next
    MsgBox s
 
End Sub