Dir sur un disque

Je me répond à moi-même, si y'en a d'intéressés:
fonction qui liste les dossiers dans un dossier

Sub TousLesDossiers(LeDossier$, Idx As Long)
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)

'examen du dossier courant
For Each Flder In Dossier.subfolders
Idx = Idx + 1
Cells(Idx, 1).Value = Flder.Path
Next

'traitement récursif des sous dossiers
For Each sousRep In Dossier.subfolders
TousLesDossiers sousRep.Path, Idx
Next sousRep

Set fso = Nothing

End Sub 'fs

Sub test()
TousLesDossiers "c:\Program Files", 0
End Sub

Je me suis fait une feuille pour un petit boulot perso.
Je pense que ça t'aidera à résoudre ton pb, je te l'envoie.
POLO

PS : le code se trouve dans Feuil1, module1, et je stocke des données intermédiaires dans la feuille "Donnees"
Ces procédures servent à scanner un repertoire et fait un traitement bidon dessus. Je m'en sers comme aide mémoire.
Si tu as un soucis à t'en servir, demande moi.

Argh, tu posais une colle et tu réponds avant nous !!!
;-)

POLO