Linked File Date and Time (1 Viewer)

Public Function getFileModDate(ByVal pvFile)
getFileModDate = FileDateTime(pvFile)
End Function


Public Function getLinkedTblModDate(ByVal pvTbl)
Dim vLink
Dim i As Integer

 vLink = CurrentDb.TableDefs(pvTbl).Connect
 If vLink <> "" Then
    i = InStrRev(vLink, "=")
    If i > 0 Then
       vFile = Mid(vLink, i + 1)
       getLinkedTblModDate = getFileModDate(vFile)
    End If
 End If
End Function

Function LinkedTableModifiedDate(LinkedName As String)
'Obtain the file modified date based on the linked
'table's name.  Parse out the full path from the
'table def and then pass it to ModifiedDate function
'that uses FSO
'https://stackoverflow.com/questions/1742450/ms-access-linked-tables-how-to-get-the-connection-string-when-linked-table-ma
'20181231
    LinkedTableModifiedDate = ModifiedDate(Mid(CurrentDb.TableDefs(LinkedName).Connect, InStr(CurrentDb.TableDefs(LinkedName).Connect, "Database=") + 9) & "\" & CurrentDb.TableDefs(LinkedName).SourceTableName)
End Function

Public Function ModifiedDate(FullPath As String) As Date
'https://stackoverflow.com/questions/35082120/vba-accessing-a-csvs-creation-date
'20181231
'NOTE: an alternative to get the Creation Date is to use the
'      FileDateTime("filename.txt") function found at:
'https://www.techonthenet.com/access/functions/file/filedatetime.php
'      Not implenting that version in the qryFILES because still
'      using the LinkedTableCreationDate function in order to derive
'      the filename and path
'20190104
    ModifiedDate = CreateObject("Scripting.FileSystemObject").GetFile(FullPath).DateLastModified
    'Other options: DateCreated, DateLastModified, DateLastAccessed
End Function

CSVDate: linkedtablemodifieddate("yourTableName")

=linkedtablemodifieddate("yourTableName")