Discussion :

[JFDAccess]

Bonjour,

Bien que la documentation Microsoft précise pour la propriété DateCreated

Renvoie la date et l'heure de création du fichier ou dossier spécifié. En lecture seule.

Je ne vois pas comment l'obtenir, seul la date de création de fichier renvoie une valeur mais pas pour les répertoires !

Comment l'obtenir en VBA?

Merci
JFD

[hyperion13]

Salut
A l'aide de Gogole est on ennemi on trouve la réponse et un exemple.
Pour un dossier

Code :

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

1
2
3
4
5
6
7
8
Private Sub btnFolder_Click()
Dim fso As Object
Dim folder As Object
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Users\Public\Documents\MonDossier")
    Debug.Print "dossier:" & folder.Name & " - créé le:" & folder.DateCreated
End Sub

Pour un fichier

Code :

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

1
2
3
4
5
6
7
8
Private Sub btnFile_Click()
Dim fso As Object
Dim file As Object
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile("C:\Users\Public\Documents\Mondoc.docx")
    Debug.Print "fichier:" & file.Name & " - créé le:" & file.DateCreated
End Sub

[JFDAccess]

Merci,

J'avais effectivement consulté l'oracle Gogol, mais sans doute pas assez loin ! Ne pas croire en la parole de µS!
JFD