afficher la date des fichiers dans la listboxRésolu

Question

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:	emp\*.*", vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While pp <> ""
List1.AddItem.pp
pp = Dir
Loop
End Sub

----------------------------------------------

Merci pour votre aide

ShareVB · Accepted Answer

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

ShareVB · Answer

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

LordM76 · Answer

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.

LordM76 · Answer

Merci çà marche !!!!

tu es un dieu  :big)

Afficher la date des fichiers dans la listbox

4 réponses

Discussions similaires