Extracting the date from a source file 1

[postlethwaited]

Good Afternoon everyone, I have a database that uses files provided by my clients as the source data - they are either .txt, .csv or .xls. I need to be able to show the date the file was produced next to the data within my database - is there an easy way to extract this information? thanks very much

 

[JerryKlmns]

Function myFileDate (strPath As String, strFile As String) As Date
Dim fso As Object
Dim fl As Object
Dim myFileDate As Date
Set fso = CreateObject("Scripting.FileSystemObject")
Set fl = fso.GetFile(strPath & "\" & strFile)
myFileDate = fl.DateLastModified
Set fl = Nothing
Set fso = Nothing
End Function