Follow-Ups to Answer from Expert Stuart Resnick

---

Mark wrote at 2009-05-20 02:34:10
DateCreated is not the same as DatePictureTaken.  DateCreated will change if a copy of the picture is made.

---

Savvy Pete wrote at 2009-11-27 22:47:32
Mark, I have the same problem: I need to sort copied/modified photos by "Date Picture Taken" in an Excel macro. Have you found a solution yet? If not, let me know. I have two possible solutions. Thanks. Savvy Pete.

---

Jenni K wrote at 2010-02-03 02:47:30
Works beautifully for Date Created, but the original question (and what I'm looking for in vain) is the attribute "Date Picture taken" which I'm told is attribute 25 but can't find out how to get to it...

---

Harrys wrote at 2010-10-01 11:45:50
Public Sub FileInfoName(iPath$, iFile$, Cc%)

   Dim I%, ri%



   Set nspace = CreateObject("Shell.Application").Namespace(CStr(iPath))

   Range("a6:d120").Clear



   With nspace

       'Name data not used from here

       Cells(5, 3) = .Items.Count

       For I = 0 To 640    '.Items.Count

         If Len(.GetDetailsOf(.ParseName(iFile), I)) > 0 Then

         ri = I

         End If

       Next I



       For I = 0 To ri    '.Items.Count

         Cells(I + 6, Cc - 1) = I

         Cells(I + 6, Cc + 1) = .GetDetailsOf(.ParseName(iFile), I)

         Cells(I + 6, Cc) = .GetDetailsOf(.Items, I)

         Select Case I

         Case 3, 4, 5, 12

         ' Cells(i + 6, cc + 2) = Application.WorksheetFunction.Text(.GetDetailsOf(.ParseName(iFile), i), "yyyy:mm:dd hh:mm:ss")

         Cells(I + 6, Cc + 2) = Application.WorksheetFunction.Text(Cells(I + 6, Cc + 1), "yyyy:mm:dd hh:mm:ss")

         End Select

       Next I

   End With

   Set nspace = Nothing

End Sub



if scripting runtime is included in the references then the routine above should show all the properties of the file that IE can show

The reason I put this here is that the previous answer got the date created   number 5  not the date taken no 12

---