Quote Originally Posted by georgiboy View Post
I'm not sure that the GetDetailsOf method is directly available for folders in the FileSystemObject library. It's available in the Shell object instead though:

Sub TestGetDetailsOf()
    Dim FileItem As Variant
    Dim oShell As Object
    Dim oDir As Object
    
    Set oShell = CreateObject("Shell.Application")
    Set oDir = oShell.Namespace("C:\Temp")
    
    For Each FileItem In oDir.Items
       Debug.Print FileItem.Name & " - Date Taken: " & oDir.GetDetailsOf(FileItem, 25)
    Next
End Sub
As Paul has stated above, the numbers change depending on system and versions.


Thank you all for your answers. There were all good tips.
I was looking for the date taken from photos.

With the Details IDs 12 + change to the shell object, the code works fine !

I am just missing the seconds in the the date, but I guess this level of information is not saved...

Thanks again!!!