Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(specfichier) s = "Fichier créé le : " & f.DateCreated
Dim fso As FileSystemObject Dim a, b, c Dim msg As String 'Créer le FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") a = fso.GetFile("c:\autoexec.bat").DateCreated b = fso.GetFile("c:\autoexec.bat").DateLastAccessed c = fso.GetFile("c:\autoexec.bat").DateLastModified msg "Date création " & a & vbCrLfmsg msg & "Date dernier accès " & b & vbCrLfmsg msg & "Date dernière modif " & c & vbCrLf MsgBox msg