Lister les fichiers d'un répertoire

[4Roses]

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

 

[wape]

Bonsoir 4Roses et le forum,

Essaye avec :

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


@+
wape

 

[4Roses]

Ca me convient parfaitement !

Merci wape

A+

4Roses

 

[Jolie Maman]

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