Function GetFDate(fPath As String)
On Error Resume Next
GetFDate = FileDateTime(fPath)
If Err <> 0 Then GetFDate = CVErr(xlErrNA)
End Function