Afficher la date des fichiers dans la listbox [Résolu]

Signaler
Messages postés
5
Date d'inscription
vendredi 27 août 2004
Statut
Membre
Dernière intervention
6 décembre 2004
-
Messages postés
5
Date d'inscription
vendredi 27 août 2004
Statut
Membre
Dernière intervention
6 décembre 2004
-
Je fais apparaitre dans une liste box les fichiers d'un répertoire mais je sais pas comment adapter mon code pour que la date des fichiers puisse apparaitre :

Private Sub Form_Load()
pp = Dir("c:\temp\*.*", vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While pp <> ""
List1.AddItem.pp
pp = Dir
Loop
End Sub

----------------------------------------------

Merci pour votre aide

4 réponses

Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
17
salut

Private Sub Form_Load()
dim pp as string

pp = Dir$("c:\temp\*.*", vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While Len(pp) ' équivaut à pp <> ""
List1.AddItem pp & " " & str$(FileDateTime("c:\temp" & pp))
pp = Dir$
Loop
End Sub

ShareVB
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
17
salut

avec la fonction FileDateTime :

Private Sub Form_Load()
pp = Dir("c:\temp\*.*", vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While Len(pp) ' équivaut à pp <> ""
List1.AddItem pp & " " & FileDateTime(pp)
pp = Dir
Loop
End Sub

ShareVB
Messages postés
5
Date d'inscription
vendredi 27 août 2004
Statut
Membre
Dernière intervention
6 décembre 2004

merci pour ta réponse et j'ai essayé mais il me lance un débogage concernant la 4ème ligne.

alors çà marche pas.

Quel est le problème.

Merci pour ton aide car je suis débutant et c'est pas facile.
Messages postés
5
Date d'inscription
vendredi 27 août 2004
Statut
Membre
Dernière intervention
6 décembre 2004

Merci çà marche !!!!

tu es un dieu :big)