getdetailsof - method or data member not found

Hello,

I have the following code:

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 : Attachment 31368


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

Thanks!!!

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

The Details IDs have changed over the versions

Attachment 31369

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:

Code:

---

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.

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?

Quote:

---

Originally Posted by 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:

Code:

---

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

Seconds included:

Code:

---

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

---

Quote:

---

Originally Posted by snb

Seconds included:

Code:

---

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!

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

See post #2

Quote:

---

Originally Posted by Paul_Hossler

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

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

Code:

---

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

---