recherche de dossier

Bonjour
Je me permet de réexpliquer un problème qui ne trouve pas de solution et repartir sur une nouvelle discussion.😕

J’effectue une recherche de fichier dans un dossier à l’aide d’une macro recupérer sur le site que j’essai de modifier.
Le résultat de cette recherche est affichée dans un label appartenant à un Userform.
Normalement le résultat doit afficher tous les dossiers présents dans le fichier.

Dans l’exemple ci-joint il n’y a qu’un fichier qui est affiché :

Private Sub CommandButton2_Click()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = "Z:\Rapport de microsection\" & TextBox1.Text
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers

For Each Fichier In Dossier.Files

Label2 = I + 1
Label2 = Left(Fichier.Name, InStr(Fichier.Name, ".") - 1)

Next
End Sub

Cliquez pour agrandir...

Si vous avez une solution a proposer, merci de votre aide
Gildas