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

Bonsoir 4Roses et le forum,

Essaye avec :

MsgBox .FoundFiles(i) & " " & FileDateTime(.FoundFiles(i))


@+
wape

Ca me convient parfaitement !

Merci wape

A+

4Roses

MOI AUSSI.

J'avais besoin de recuperer la liste de tous les fichiers d'un repertoire et grace a vous, c'est chose faire.

Mille merci a vous tous.

Jolie Maman