Lister les fichiers d'un répertoire

Bonjour le Forum,

Je voudrais connaître les caractéristiques (Nom, et Date de « Dernière modification ») des fichiers de mon Répertoire c:\Mes Documents\. à partir d’une boite de dialogue.
Je n’ai pas de souci pour identifier les noms des fichiers de ce répertoire mais je n’arrive pas à connaître la date de « Dernière modification » de ce fichier.


J’ai consulté l’aide qui me donne le nom des fichiers du répertoire

Set fs = Application.FileSearch
With fs
.LookIn = "c:\Mes Documents"
.Filename = "*.*"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Msgbox .FoundFiles(i)
Next i
Else
MsgBox "Pas de fichier"
End If
End With

Mais je n’ai de solution pour connaître la date de dernière modification.

Merci de votre collaboration