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

 1224300 visiteurs

 12 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 : - Fichiers
Page lue 6734 fois
Vous êtes ici :   Accueil » Lister les sous-dossiers