Discussion :

[Mut]

Bonjour,

J'ai une fonction qui est censée me récupérer les fichiers présents dans les dossiers et les sous-dossiers (ce qu'elle fait très bien d'ailleurs...). Par contre je souhaiterais l'adapter afin qu'elle puisse également me récupérer les fichiers des sous dossiers des sous dossiers....En résumé, qu'elle parcours TOUS les sous dossiers sur plusieurs niveaux....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
Public Function LireRepertoir(ByVal Rep As String, Optional SousRep As Boolean) As Integer
Dim Obj, RepP, F, S, sf, F1, Fsous
Dim i As Integer, Ext As String
Dim Chem As String
Dim T As Double
 
    Set Obj = CreateObject("Scripting.FileSystemObject")
    Set RepP = Obj.GetFolder(Rep)
    Chem = Rep: If Right(Chem, 1) <> "\" Then Chem = Chem & "\"
 
    Set sf = RepP.SubFolders
    Set F = RepP.Files
    GoSub RempliData 'les fichiers du répertoire principal
 
    If SousRep Then 'les fichiers des sous-répertoires
        For Each Fsous In sf
            Set RepP = Fsous
            Set F = RepP.Files
            GoSub RempliData
        Next Fsous
    End If
 
Exit Function
 
RempliData:
..............
...........
...........
 
end function

J'imagine qu'il faut rajouter une boucle lors du parcours des sous répertoire mais je vois pas comment gérer les niveaux...


Si quelqu'un a une idée..

Merci

[Invité]

Bonjour

Tu pourrais t'inspirer de cela : http://access.developpez.com/sources...ercheRecursive

Philippe

[Mut]

Génial ! J'étais tombé dessus mais j'avais pas vu le fichier zip....j'ai donc pu adapter l'exemple à mon cas c'est parfait

Merci !