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

 1218265 visiteurs

 2 visiteurs en ligne

Nous contacter

Contact

Lister les sous-dossiers

Lister les sous-dossiers

Function fnGetSubFoldersInDirectory(sPath As String) As String
    Dim fso As Object, Directory As Object
    Dim SubFolders As Object, Folders As Object
    Dim sTmp As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Directory = fso.GetFolder(sPath)
    Set SubFolders = Directory.SubFolders
    
    For Each Folders In SubFolders
        sTmp = sTmp & Folders.Name & ";"
    Next Folders
    
    If sTmp <> "" Then
        sTmp = Left(sTmp, Len(sTmp) - 1) & ""
    End If
    
    fnGetSubFoldersInDirectory = sTmp
    
    Set Folders = Nothing
    Set SubFolders = Nothing
    Set fso = Nothing
    Set Directory = Nothing
End Function


Catégorie : Les mémos - Fichiers
Page lue 6712 fois

Vous êtes ici :   Accueil » Lister les sous-dossiers