Discussion :

[Eva01]

Grace à cette fonction j'affiche dans un composant list mes sousdossier, Mais je n'arrive pas à trouver et à comprendre pour trouver aussi tout les sous sous dossiers etc.
Si quelqu'un pourais me donner une piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Dim stRep 'Nom du répertoire à parcourir
        Dim K As Integer
        K = 0
        Set oFSO = CreateObject("Scripting.FileSystemObject")
        stRep = "C:\Documents and Settings\FSD.DOMMIND\Bureau\Source a comparer\"
        If oFSO.FolderExists(stRep) Then
        For Each oFld In oFSO.GetFolder(stRep).SubFolders
        List.AddItem oFld.Name, K
        K = K + 1
 
 Next

[Eva01]

Il faut fair une fonction recursive exemple ici :http://vb.developpez.com/sources/?pa...onF#scanfolder