recherche fichiers dans sous-dossier
Bonjour à tous,
j'avais fait le code ci-dessous afin de rechercher des fichiers dans les repertoires et sous-repertoires et les faire apparaitre dans une listbox :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| ListBoxARCHIVES.Clear
nomfeuil = ActiveSheet.Name
Set Recherche = ClFileSearch.Nouvelle_Recherche
r = ThisWorkbook.Path & "\" & "archives_" & nomfeuil
With Recherche
.FolderPath = r
.SubFolders = True
.SortBy = sort_DateCreated
.Extension = "*.pdf"
inombre = .Execute
stmessage = VBA.Format(inombre, "0"" fichiers trouvés""")
For i = 1 To .FoundFilesCount
nom = .Files(i).strfileName
nom2 = .Files(i).strpathName & "\" & nom
ListBoxARCHIVES.AddItem nom
Next i
End With |
mais je viens de m'apercevoir que la recherche s'arrête au dernier sous-repertoire trouvé. Je m'explique mieux, exemple :
repertoire de demarrage : archives_factures
1er sous-repertoire, l'année de création du fichier
2eme sous-repertoire, le mois
3eme, le jour
dans le sous-repertoire mois je me retrouve avec plusieurs sous-repertoires jour, soit 2010 03 14, 2010 03 15, 2010 03 16 etc
or ma recherche s'arrête au premier sous-repertoire trouvé, soit 2010 03 14
alors que je voudrais lister tous les "PDF",
merci d'avancede vos conseils
PS : j'ai oublié de dire que j'utilise le complément "classefilesearch"