getdetailsof - method or data member not found

[jb023]

Hello,

I have the following code:

Sub TestGetDetailsOf()
    Dim FSO As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.folder
    Dim FileItem As Scripting.File
    Dim DateTaken As Variant
    
    Set FSO = New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder("C:\Temp")
    
    For Each FileItem In SourceFolder.Files
 
        
        DateTaken = SourceFolder.GetDetailsOf(FileItem, 25)
        Debug.Print FileItem.Name & " - Date Taken: " & DateTaken
    Next FileItem
End Sub

I get because of getdetailsof the following error : method or data member not found

In references I have the following : 0001.JPG


I don't know what I should change / update. Does anyone know what could be the solution?

Thanks!!!

[Paul_Hossler]

I'm guessing that "DateTaken" variable means that you're dealing with pictures

The Details IDs have changed over the versions

Capture.JPG

[georgiboy]

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.

[Aflatoon]

You have the wrong code completely. The Scripting Runtime doesn't have a GetDetailsOf method anywhere. You need the Shell.Application object. What information are you actually after?

[jb023]

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!!!

[snb]

Seconds included:

Sub M_snb()
    For Each it In CreateObject("Shell.Application").Namespace("G:\foto").Items
       Debug.Print it.Name & " - Date Taken: " & it.Parent.GetDetailsOf(it, 31)
    Next
End Sub

[jb023]

Seconds included:

Sub M_snb()
    For Each it In CreateObject("Shell.Application").Namespace("G:\foto").Items
       Debug.Print it.Name & " - Date Taken: " & it.Parent.GetDetailsOf(it, 31)
    Next
End Sub

Hello,

with 31, the code return the size in picxel of the pictures (in my case: "3024 x 4032‬") /// not the date with the seconds.

Do you know if there is still the possibility to get the date with seconds ?

Have a nice day!

[Paul_Hossler]

Depending on which verson of Windows, it's most likely 12 or 25 - probably 12

See post #2

[jb023]

Depending on which verson of Windows, it's most likely 12 or 25 - probably 12

See post #2

Yes, 12 is giving the date and time but goes down to minutes, not to seconds.
I was just curious if we could get the seconds....

[snb]

You are the only one that can perform the test on your system:

Sub M_snb()
  For Each it In CreateObject("Shell.Application").Namespace("G:\foto").Items
    for j= 1 to 50
      Debug.Print it.Name & " - Date Taken: " & it.Parent.GetDetailsOf(it, j)
    next
  Next
End Sub