FileDateTime equivalent for folders?

[GraeagleBill]

FileDateTime gives me the date last modified for a file. Is there an equivalent method for obtaining the date last modified for a folder? I.e., were any of the files in a given folder added, deleted or otherwise changed? Somebody have a sub laying around for such a question?



I did see a post using FSO on an Excel site, but thought perhaps I'd missed something native to Access.

This works, unless someone has something better that's native to Access?

Option Compare Database
Option Explicit
Private Sub testfldr()
MsgBox GetDateLastModif("c:\TMS")
End Sub
Function GetDateLastModif(strFold As String) As Date
   Dim fso As Object, gf As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set gf = fso.GetFolder(strFold)
   GetDateLastModif = gf.DateLastModified
End Function

[June7]

I tested FileDateTime() on a folder and it returns a date/time as well.

[Micron]

I presume you got that code from here (or somewhere that got it from here)
https://stackoverflow.com/questions/...rrent-date-vba
I don't see anything about that that would indicate it's for Excel?

[GraeagleBill]

Oops! I think because there were several posts in the Excel realm I had Excel on the brain :-(

[Micron]

Even if it was Excel specific I imagine you could use properties/methods as long as you had a reference to the Excel library in your Access code project. I say that because I have worked with Excel objects from Access via Automation (I think that has a new name now?).

[GraeagleBill]

Yes, I had just tried that myself and found that if I only give the function a folder I get the DLM of the folder. (I also tested with the trailing "" on the folder but both that and "\*" will fail.)

[madpiet]

so what if you pass the text string and then inside your function, make sure it doesn't have those characters that cause your code to fail? Just use a text function to strip the offending characters or patterns out of your string.

[GraeagleBill]

You misunderstood my post in reply to post #2. I was essentially affirming June7.