I can retrieve the 'Date Taken' of a JPEG but cannot get it for a MOV file. In File Manager there is a field that is called 'Date' which shows the same day as 'Date Taken' but it also includes MOV files.
It is the DATE field in File Manager I want to use. Can this be done? and how?
Below is the code to retrieve image properties.
Sub RenameFiles()
Dim resultsArray()
Const PATH_FOLDER As String = "C:\Users\tropi\Desktop\Photos\"
resultsArray() = folderInfo(PATH_FOLDER)
End Sub
Public Function folderInfo(ByVal PATH_FOLDER As String) As Variant
Dim objShell As Object
Dim objFolder As Object
Dim i As Long
Dim fileName As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Left$(PATH_FOLDER, Len(PATH_FOLDER) - 1))
Cells(1, 1) = "FROM:"
Cells(1, 2) = "TO:"
For Each fileName In objFolder.Items
For i = 0 To 35
Cells(i + 1, 1) = objFolder.GetDetailsOf(objFolder.Items, i)
Cells(i + 1, 3) = objFolder.GetDetailsOf(fileName, i)
Next i
Next fileName
End Function
Below is a screen shot of 'File Manager'
Thanks.