Compter les dossiers

Compter les dossiers

Pour savoir combien il y a de répertoires à un emplacement indiqué, on peut utiliser la fonction suivante.

Public Function fnCountFolder(SourceDir As String) As Integer
    '/ Ne pas oublier de cocher la référence Microsoft Scripting Runtime
    '/
    '/ Syntaxe:
    '/ Dim C As Integer
    '/ C = fnCountFolder("C:\Mes documents\")
    '
    Dim FSO As Scripting.FileSystemObject
    Dim srcFolder As Scripting.Folder
    Dim subFolder As Scripting.Folder
    Dim iCounter As Integer
    Set FSO = New Scripting.FileSystemObject
    Const cnFolder As Long = 16
    iCounter = 0
    '
    If InStrRev(SourceDir, "/") <> Len(SourceDir) Then
        SourceDir = SourceDir & "/"
    End If
    '
    If Dir(SourceDir) <> "" Then
        Set srcFolder = FSO.GetFolder(SourceDir)
        'Boucle sur les répertoires
        For Each subFolder In srcFolder.SubFolders
            If subFolder.Attributes And cnFolder Then
                'Debug.Print subFolder.Name
                iCounter = iCounter + 1
            End If
        Next subFolder
    End If
    '
    fnCountFolder = iCounter
    '
    '// libération
    Set srcFolder = Nothing
    Set FSO = Nothing
End Function