I've seen several posts on how to display last saved date for the active
workbook, but I'm searching for the last saved date of a linked file. Can
anyone suggest a way to use BuiltInDocumentProperties with a reference to the
another file?

Sub getfiles()

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\temp\book1.xls")
MsgBox ("last Modified = " & f.datelastmodified)
End Sub

"tjc" wrote:

I've seen several posts on how to display last saved date for the active
workbook, but I'm searching for the last saved date of a linked file. Can
anyone suggest a way to use BuiltInDocumentProperties with a reference to the
another file?

Thanks Joel.
But, I'm looking for a user defined function. Maybe something along the
lines of
=lastsaved(c:/otherfile!A1)


"Joel" wrote:

Sub getfiles()

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\temp\book1.xls")
MsgBox ("last Modified = " & f.datelastmodified)
End Sub

"tjc" wrote:

I've seen several posts on how to display last saved date for the active
workbook, but I'm searching for the last saved date of a linked file. Can
anyone suggest a way to use BuiltInDocumentProperties with a reference to the
another file?

Simple. We change the macro to a function

call function with a string name of a file in double quotes
=lastsaved("c:\temp\book1.xls")

Function lastsaved(FileName As String)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(FileName)
lastsaved = f.datelastmodified
End Function


"tjc" wrote:

Thanks Joel.
But, I'm looking for a user defined function. Maybe something along the
lines of
=lastsaved(c:/otherfile!A1)


"Joel" wrote:

Sub getfiles()

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\temp\book1.xls")
MsgBox ("last Modified = " & f.datelastmodified)
End Sub

"tjc" wrote:

I've seen several posts on how to display last saved date for the active
workbook, but I'm searching for the last saved date of a linked file. Can
anyone suggest a way to use BuiltInDocumentProperties with a reference to the
another file?

Thanks Joel. This code works great.
For my purposes, is there a way to use a cell reference that would be
updated when along with other links in the worksheet instead of the string
reference?



"Joel" wrote:

Simple. We change the macro to a function

call function with a string name of a file in double quotes
=lastsaved("c:\temp\book1.xls")

Function lastsaved(FileName As String)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(FileName)
lastsaved = f.datelastmodified
End Function


"tjc" wrote:

Thanks Joel.
But, I'm looking for a user defined function. Maybe something along the
lines of
=lastsaved(c:/otherfile!A1)


"Joel" wrote:

Sub getfiles()

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\temp\book1.xls")
MsgBox ("last Modified = " & f.datelastmodified)
End Sub

"tjc" wrote:

I've seen several posts on how to display last saved date for the active
workbook, but I'm searching for the last saved date of a linked file. Can
anyone suggest a way to use BuiltInDocumentProperties with a reference to the
another file?

A String is a String is a String. Doesn't matter where it comes from. If
you have a cell that is text then
=lastsaved(A1)

where A1 = "c:\temp\book1.xls"


"tjc" wrote:

Thanks Joel. This code works great.
For my purposes, is there a way to use a cell reference that would be
updated when along with other links in the worksheet instead of the string
reference?



"Joel" wrote:

Simple. We change the macro to a function

call function with a string name of a file in double quotes
=lastsaved("c:\temp\book1.xls")

Function lastsaved(FileName As String)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(FileName)
lastsaved = f.datelastmodified
End Function


"tjc" wrote:

Thanks Joel.
But, I'm looking for a user defined function. Maybe something along the
lines of
=lastsaved(c:/otherfile!A1)


"Joel" wrote:

Sub getfiles()

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\temp\book1.xls")
MsgBox ("last Modified = " & f.datelastmodified)
End Sub

"tjc" wrote:

I've seen several posts on how to display last saved date for the active
workbook, but I'm searching for the last saved date of a linked file. Can
anyone suggest a way to use BuiltInDocumentProperties with a reference to the
another file?