Discussion :

[Empty_body]

Pour plus de facilité, je vais reprendre l'exmple de la faq :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fso As FileSystemObject, f As File
 
Set fso = New FileSystemObject
 
On Error GoTo fin
Set f = fso.GetFile("c:\autoexec.bat")
MsgBox "Crée le : " & f.DateCreated
MsgBox "Modifié le : " & f.DateLastModified
MsgBox "Accédé le : " & f.DateLastAccessed
Set f = Nothing
 
fin:
Set fso = Nothing

En utilisant ce code, on obtient la date mais aussi l'heure... Ma question est donc la suivante, existe-t-il une solution pour n'avoir que la date???

[SilkyRoad]

bonjour

tu peux tester cette synthaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
MsgBox "Crée le : " & Format(CDate(F.DateCreated), "dd/mm/yyyy")
MsgBox "Modifié le : " & Format(CDate(F.DateLastModified), "dd/mm/yyyy")
MsgBox "Accédé le : " & Format(CDate(F.DateLastAccessed), "dd/mmm/yyyy")

bonne journée
michel

[bouley]

Utilise l'instruction format()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fso As FileSystemObject, f As File
 
Set fso = New FileSystemObject
 
On Error GoTo fin
Set f = fso.GetFile("c:\autoexec.bat")
MsgBox "Crée le : " & Format(f.DateCreated, "dd/mm/yyyy")
MsgBox "Modifié le : " & Format(f.DateLastModified, "dd/mm/yyyy")
MsgBox "Accédé le : " & Format(f.DateLastAccessed, "dd/mm/yyyy")
Set f = Nothing
 
fin:
Set fso = Nothing

EDIT presque en même temps !!
@+

[Empty_body]

Merci de vos réponses... Silky road, la tienne ne fonctionne pas... Le CDate cloche...