Lire un dossier

[piep14]

Bonjour, j'aimerais faire une macro qui affiche dans une zone de liste le contenu de mon dossier. C'est a dire, afficher les fichiers !!!

Merci

 

[john]

Salut,

Voici le code que tu veux.

Private Sub UserForm_Activate() 'ici le userform
Dim nbFichiers As Integer
Dim direction
Dim chemin

chemin = 'c:\\' ' 'ici c'est le répertoire qui contient les images
'**************************************************************************************
'lister les fichiers du repertoire
direction = Dir(chemin & '\\*.*')
Do While Len(direction) > 0
nbFichiers = nbFichiers + 1
ListBox1.AddItem direction 'ici j'ajoute dans la zone de liste les fichiers lus sur le disque
direction = Dir()
Loop
End Sub

Bonne soirée

John