Repertoires .... encore

Bonjour,

Thierry m'a donné le code suivant il y a une semaine ... est-ce possible d'adapter celui-ci pour qu'il ne m'affiche UNIQEMENT les répertoires d'un niveau voulu.

Par exemple, le premir niveau contient les dossiers 100,200,300.... le dossier 100 contient le dossier de second niveau : 100, 110, 120, 130...
et le dossier 100 contient les dossiers 101,102,103.... et le dossier 110 contient les dossiers 111,112,113....

J'aimerais qu'il m'affiche seulement les dossiers du second niveau: 100,110 ... 200, 210 ....

Est-ce possible? Suis je clair?


Merci



/*****************

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

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

/***************************************