Sub ListerSousRepertoire(ByVal NomDuRepertoireRacine As String)

'Création d'un fichier Analyse.txt pour énumérer les sous-répertoires trouvés
Dim sw As StreamWriter = File.CreateText("C:\Analyse.txt")

'Ecrit au début du fichier le répertoire racine parcouru et la date
sw.WriteLine("Répertoire racine analysé : " & NomDuRepertoireRacine) 
sw.WriteLine(DateTime.Now)

Dim list As System.Collections.ObjectModel.ReadOnlyCollection(Of String)

'Parcours tous les fichiers du répertoire
list = My.Computer.FileSystem.GetDirectories(NomDuRepertoireRacine, FileIO.SearchOption.SearchTopLevelOnly) 
'FileIO.SearchOption.SearchAllSubDirectories permet également de parcourir les sous_sous_répertoires


Dim path As String

For Each path In list

'écrit les sous-répertoires du répertoire racine dans un fichier text

sw.WriteLine(path)


Next


'fermeture du fichier texte

sw.Close()


End Sub

'Exemple d'utilisation:
Private Sub Form_Load() 
    Dim NumFile As Integer 
    NumFile = FreeFile 
    'OUvre le fichier d'analyses en Append
    Open "C:\Analyses.txt" For Append As NumFile 
    'Appelle la procédure de listage
    Call ListerSousRepertoire("C:\Julien\", CreateObject("Scripting.FileSystemObject"), NumFile) 
    'Ferme le fichier
    Close NumFile 
End Sub 
'--------------------------------------------------------------------------------------
' Procedure : ListerSousRepertoire
' Purpose   : Lister un repertoire complet (attention récursive)
'---------------------------------------------------------------------------------------
'
Public Sub ListerSousRepertoire(ByVal NomRepertoire As String, ByRef Fso, ByVal NumFile As Integer) 
Dim SubFol, Fi, Fol 
    'Récupere le repertoire
    Set Fol = Fso.GetFolder(NomRepertoire) 
    'Ecrit le nom dans le fichier
    Print #NumFile, Fol.Path 
    'Pour chaque Fichiers du repertoire
    For Each Fi In Fol.Files 
        'écrit le nom dans le fichier
        Print #NumFile, Fi.Path 
    Next 
    'Pour chaque sous répertoire
    For Each SubFol In Fol.SubFolders 
        'appel la meme procédure pour liste le contenu
        Call ListerSousRepertoire(SubFol.Path, Fso, NumFile) 
    Next 
    'Destruction des object
    Set Fol = Nothing 
    Set Fi = Nothing 
    Set SubFol = Nothing 
End Sub