Windows - Ultimo accesso ad un files

Ultimo accesso ad un file


Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\Autoexec.bat")
s = f.Name & " nell'unita' " & UCase(f.Drive) & vbCrLf
s = s & "Creazione: " & f.DateCreated & vbCrLf
s = s & "Ultimo accesso: " & f.DateLastAccessed & vbCrLf
s = s & "Ultima modifica: " & f.DateLastModified
MsgBox s, 0, "Informazioni sull'accesso al file"