External File Properties In Cells. "LastSavedTime"

[Bluewhistler]

Hi,

I was looking for a way to get external file froperties into a cell!
for example:

Last modified date.

this is what I allready found/tried.

=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

I use this for other filetypes and it works just fine. Except that I somehow can't seem to make the cell to automaticly update. After the linked file has been edited/saved and has a new lastsave date/time. It doesn't show the new time in that cell. not even if I close/save the workbook and reopen it.
It only changes the Last saved date when I go into the cell and press enter.

The only way this works is when I (for example):

- Put the file link c:\docs\test.txt in cell A1 in another Book2.xls (A1 shows c:\docs\test.txt )
- Link to that cell from Book1-A1 with this formula =C:\docs\[Book2.xls]Sheet1!A1 (result showing in cell is c:\docs\test.txt )
- Then put =Lastsaved(A1) in Book1-A2 (result is last saved date and time (cell properties set to dd:mm:ss)

Now when I reopen the document excel asks for link update.
This works but surely there must be an easier way.