Get Last Accessed Date/time

[av8tordude]

Below the code allows me to get the last modified, but I want to get the last time the file was access. How do get the "Last Accessed" Date/Time?

If CurrentTime < ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") Then
MsgBox "Date Moved"

[Bob Phillips]

You would have to save that last accessed time somewhere and retrieve that, or you could use FSO on the disk file.

[av8tordude]

You would have to save that last accessed time somewhere and retrieve that, or you could use FSO on the disk file.

Ok. I would assume I would have to place this in a cell. If so, how do I achieve that?

Also, the FSO seems viable as well. How about it?

[Bob Phillips]

[vba]

Dim fso As Object

Set fso = CreateObject("Scripting.FilesystemObject")
MsgBox fso.getfile("C:\test\Bob test.xls").datelastaccessed
Set fso = Nothing
[/vba]

[av8tordude]

[vba]

Dim fso As Object

Set fso = CreateObject("Scripting.FilesystemObject")
MsgBox fso.getfile("C:\test\Bob test.xls").datelastaccessed
Set fso = Nothing
[/vba]

Thanks again. Only problem I see I will run into, if the file is changed/moved to a different location, it would cause an error. is there any other way to achieve this?

[mdmackillop]

You could add it to a Range Name, but the Save may be an issue.
[VBA]
Private Sub Workbook_Open()
With ActiveWorkbook
On Error Resume Next
.Names("LastAccess").Delete
.Names.Add Name:="LastAccess", RefersToR1C1:="=""" & Format(Now(), "DD/MM/YY hh:mm:ss") & """"
.Save
End With
End Sub

[/VBA]

[Bob Phillips]

If the file is moved, you code will have problems with it whatever, not just this bit.

[Norie]

This is cross-posted and closed here.

[mdmackillop]

Thanks Norie