Private Sub UserForm_Initialize()
With Me.ListView1: .View = 3: .Gridlines = True
With .ColumnHeaders: .Add , , "IMAGE", 100: .Add , , "CHEMIN", 350: End With: End With
' ========================================================================================
Set RECHERCHE = Application.FileDialog(msoFileDialogFolderPicker)
With RECHERCHE
.Title = " CHOISIR UN DOSSIER"
.AllowMultiSelect = False
If .Show = -1 Then
For Each CHOIXDOSSIER In .SelectedItems
DOSSIER_CHOISI = CHOIXDOSSIER
Next CHOIXDOSSIER
End If
End With
Set RECHERCHE = Nothing
' =============================================
Set DOSSIER_A_FOUILLER = CreateObject("Shell.Application")
Set FICHIERS_EXISTANTS = DOSSIER_A_FOUILLER.Namespace(DOSSIER_CHOISI & "\")
[COLOR=blue]For i = 0 To 34[/COLOR]
[COLOR=blue] If FICHIERS_EXISTANTS.GetDetailsOf(FICHIERS_EXISTANTS.Items, i) Like "[COLOR=red][B]Type[/B][/COLOR]*" Then Exit For
Next
[/COLOR]For Each ELEMENT In FICHIERS_EXISTANTS.Items
On Error Resume Next 'Au cas où il n'y ait pas de Fichier
If FICHIERS_EXISTANTS.GetDetailsOf(ELEMENT, i) Like "*JPG*" Then
' C'est ci-dessus que cela coince chez certains...!
With Me.ListView1
.ListItems.Add , , ELEMENT
.ListItems(.ListItems.Count).ListSubItems.Add , , ELEMENT.Path
End With
End If
Next ELEMENT
End Sub