En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224955 visiteurs

 17 visiteurs en ligne

Nous contacter

Contact

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

Catégorie : Les mémos - Fichiers
Page lue 4922 fois
Vous êtes ici :   Accueil » Compter les dossiers