SANS API INFOS SUR FICHIERS

Private Sub Command1_Click()
  Dim fso, d, f, s
  filespec = "c:autoexec.bat" ' exemple de fichier
Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filespec)
  s = UCase(f.Path) & vbCrLf
  s = s & Chr(13) & "Créé le:                     " & Chr(9) & f.DateCreated
  s = s & Chr(13) & "Dernier accès le:        " & Chr(9) & f.DateLastAccessed
  s = s & Chr(13) & "Dernière modification le:" & Chr(9) & f.DateLastModified
 
MsgBox s, vbYes, "Résultat"
End Sub