Date Last Accessed Updates Itself

[samuel.nunn]

Anyone know how to query the Date Last Accessed on a file WITHOUT it updating to the current date? After looking around online, it looks like this is a BIG problem with Windows. For instance, if you right-click a file > Properties, Date Last Accessed will be the current time. Totally useless...

Here is what I have. Any ideas?

DLADate = Object.DateLastAccessed

 

[BrianB]

Like this ...............

'=========================================================================================
'- GET FILE LAST ACCESSED DATE
'=========================================================================================
Sub GET_LAST_ACCESS()
    Dim FSO As Object
    Dim MyFile As String
    '-------------------------------------------------------------------
    MyFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
    '-------------------------------------------------------------------
    If MyFile <> "False" Then
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set Spec = FSO.GetFile(MyFile)                          ' individual file info
        MsgBox (Spec.datelastaccessed)
    End If
End Sub
'----------------------------------------------------------------------------------------