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

<pre/>
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


</pre>

 

[JohnnyC]

Thanks Ivan, that's perfect.