Cherche exemples de gestion de fichiers sous Access

Function dateFichier()

Dim fso As Object
Dim oFolder As Object
Dim oFiles As Object
Dim oFile As Object


Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.getfolder("C:\Temp\")

Debug.Print "oFolder.datelastmodified", oFolder.datelastmodified
Debug.Print "oFolder.DateCreated", oFolder.DateCreated
Debug.Print "oFolder.Name : ", oFolder.Name
Debug.Print "oFolder.Size : ", oFolder.Size
Debug.Print "oFolder.Path : ", oFolder.Path

Set oFiles = oFolder.Files
For Each oFile In oFiles
    Debug.Print oFile.Name
Next

Set oFiles = Nothing
Set oFolder = Nothing
Set fso = Nothing

End Function