icone des fichiers trouvés dans listbox ou listview

[zeltron]

Bonjour à tout le forum,

Tout d'abord, je vous souhaite une bonne année 2008

Voici mon problème

J'ai un Userform sur lequel j'ai une listbox.
Cette listbox donne le nom de tous les fichiers d'un répertoire

Ce que je souhaiterais c'est que dans cette listbox apparaisse également l'icône du type de fichier.

Sur un fil du forum j'avais vu que cela était possible, mais je n'arrive pas a retrouver ce fil. Peut être était ce d'ailleurs avec une listview et non une listbox; malgré toutes mes recherches sur le forum je n'arrive plus a retrouver ce fil.

Pouvez vous m'aider à le retrouver où à m'indiquer quel serait la solution à mon problème. D'ailleurs le control listbox n'est pas une obligation pour moi cela peut également passer par une listview. Mais je n'ai aucune idée de la démarche à suivre.

Pour info mon code indiquant la liste des fichiers dans la listbox est le suivant:

Private Sub UserForm_Initialize()
Dim Fs As FileSearch
Dim Dossier As String
Dim I As Integer
On Error Resume Next
Set Fs = Application.FileSearch
Dossier = "C:\CGU\APP\"
With Fs
.NewSearch
.Filename = "*.*"
.LookIn = Dossier
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For I = 1 To .Count
Me.ListBox1.AddItem Dir(.Item(I))
Next I
End With
Else
MsgBox "Aucun classeur trouvés " & _
"dans le dossier '" & Dossier & "'."
Me.ListBox1.AddItem "Aucun classeur !"
End If
End With
Set Fs = Nothing
End Sub

Je vous remercie d'avance pour votre aide

Cordialement

Zeltron