Displaying last saved date

[JohnnyC]

I've got a macro that loads data out of a text file into an Excel spreadsheet and I need to find out the last modified date of this file. Is there a function i can use that displays this, or can you find out the information in VBA?

As usual the Excel help file isn't helpful.

Thanks

[Ivan F Moala]

On 2002-04-15 00:59, JohnnyC wrote:
I've got a macro that loads data out of a text file into an Excel spreadsheet and I need to find out the last modified date of this file. Is there a function i can use that displays this, or can you find out the information in VBA?

As usual the Excel help file isn't helpful.

Thanks

Try this function that uses the FileSytem Object

Function LastMod(SFileFullName As String)

'// Finds the Files last modified Date/Time

'// Use:     =LastMod("C:readme.txt")

'// Returns: Last Modified:= dd/mm/yy hh:mm:ss

'//        : Depending on system time format setup



Dim Fso, F



Set Fso = CreateObject("Scripting.FileSystemObject")

Set F = Fso.GetFile(SFileFullName)

LastMod = "Last Modified:= " & F.DateLastModified

End Function

[JohnnyC]

Thanks Ivan, that's perfect.