What I think you are looking for is:
Code:
Option Explicit
Function TestFileExistence(strFilename) As Boolean
Dim FSO As New FileSystemObject
Dim f As Object
On Error GoTo Not_Found
Set f = FSO.GetFile(strFilename)
If (FSO.FileExists(strFilename)) Then
If (DateDiff("d", f.DateLastModified, Now()) = 0) Then
TestFileExistence = True
End If
End If
lbl_Exit:
Set f = Nothing
Exit Function
Not_Found:
Resume lbl_Exit
End Function
Sub Macro1()
MsgBox TestFileExistence("C:\Path\Filename.ext")
End Sub