Custom Function to display "last save time"

[Kemidan2014]

I am not sure if this is even possible but I found this code doing a search and thought I would try to modify it to suit my needs which currently does not work

Function LastModified() As Date
    LastModified = Workbook("O:\1_All Customers\Current Complaints\ToyotaData.xlsx").BuiltinDocumentProperties("Last Save Time")
End Function

For reference what modified from the original formula I found on the internet, was where it stated "Workbook("Filepath") WAS simply "Activeworkbook" When I tried the function it errored out and highlighed "Workbook" so i am assuming that what i changed was not a correct form of syntax.

What should i change to have this function work correctly?

End goal: display the Date of another work book that my active workbook uses to pull data from.

 

[shknbk2]

How about DateLastModified?

DateLastModified property (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

 

[Kemidan2014]

That sounds more on the nose of what i was wanting i tried it but i am getting a compile error. Should i be trying to treat this as a Sub instead of a function?

 

[Alex Blakenburg]

You didn't actually apply the information provided to you in the link.

Sub GetDateModified()
    Dim LastModDate As Date

    LastModDate = LastModified(filespec:="O:\1_All Customers\Current Complaints\ToyotaData.xlsx")
    MsgBox LastModDate
End Sub

Function LastModified(filespec)
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    LastModified = f.DateLastModified
End Function

 

[Kemidan2014]

Ah ha that worked, Thank you Alex.

 

[Alex Blakenburg]

No problem. Glad we could help and thanks to @shknbk2 for posting the link.