Dim fso As New FileSystemObject Dim Fajl As File Set Fajl = fso.GetFile("C:\foo.txt") MsgBox Fajl.DateLastModified MsgBox Fajl.DateCreated MsgBox Fajl.DateLastAccessed