Option Explicit
Dim Fso As Object
Private Sub Form_Load()
Set Fso = CreateObject("Scripting.FileSystemObject")
Call FindFile("C:\Julien")
Set Fso = Nothing
End Sub
'Fonction récursive affichant dans la fenetre
'de DEBUG TOUT les fichiers d'un répertoire racine
Public Function FindFile(Dossier As String)
Dim Fi As Object
Dim Fol As Object
Dim SubFol As Object
'récupération du dossier
Set Fol = Fso.GetFolder(Dossier)
'pour chaque Fichier on affiche son chemin
For Each Fi In Fol.Files
Debug.Print Fi.Path
Next
'pour chaque sous répertoire on rappelle
'la meme fonction
For Each SubFol In Fol.SubFolders
Call FindFile(SubFol.Path)
Next
'destruction des objets
Set Fi = Nothing
Set Fol = Nothing
Set SubFol = Nothing
End Function