Get Date Last Modified of a specified folder return as date in a specific cell

[handysmurf]

I have searched and can't find this. If you know of a thread that answers this please do direct me there.

I need to return the date last modified of a specific folder in a cell. I would also note that there are multiple folders I need to do this for, return in their own cells.


PS: If there is a basic section or something I can study to start to learn this stuff that would be great. I hate that I'm not learning how to, I'm just cut and pasting stuff that others give me.

TIA

 

[shknbk2]

If you are looking for a custom function to use in a cell formula, you could try this. Put this in a Module and use the formula below.

Public Function GetLastModified(folderPath As String) As Date
    Dim fs As Object
    Dim f As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    On Error Resume Next
    Set f = fs.GetFolder(folderPath)
    If Not f Is Nothing Then
        GetLastModified = f.DateLastModified
    End If
End Function

Book1
	A	B
1	C:\Users\Public\Documents	2/8/22 7:48 PM
Sheet1

Cell Formulas
Range	Formula
B1	B1	=GetLastModified(A1)

For research, look up FileSystemObject for VBA.

 

[handysmurf]

Works great Than you so much!

 

[handysmurf]

It does not appear to be updating?

I saved, closed, and reopened. Did not update.

 

[handysmurf]

OK nvm I figured out how to do it.