Sub test1()
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\temp\abc.txt")
MsgBox (f.datelastmodified)
End Sub

"RayportingMonkey" wrote:

I have created a number of automated reports in Excel and now need to pass
the actual report generation on to a team of Analysts.

There is a mix of automated and manual extracts that comprise the source for
these reports.

Is there a way I can test to see if the "Date Modified" for the source
file(s) is = to TODAY?

Thank you for your assistance!

This works - But - Since I want to run logic in the worksheet based on this
data, how do I redirect the response to a cell instead of a Message Box?

"Joel" wrote:

Sub test1()
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\temp\abc.txt")
MsgBox (f.datelastmodified)
End Sub

"RayportingMonkey" wrote:

I have created a number of automated reports in Excel and now need to pass
the actual report generation on to a team of Analysts.

There is a mix of automated and manual extracts that comprise the source for
these reports.

Is there a way I can test to see if the "Date Modified" for the source
file(s) is = to TODAY?

Thank you for your assistance!