|
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" |