Macro to Read the File Properties for the photos and Put them into Folders by Year and Date
Below Macro helps in opening the Photo or Image Files and read the properties along with Camera the Photo Captured and Dates along with locations and create the Folders by Year, Month and Date if the folders doesn't exist and copy the photos to that folder. 'Creating a FileSystemObject 'Public FSO As New FileSystemObject Sub ListFiles() 'Declaring variables Dim objFolder As Folder Dim objFile As File Dim strPath As String Dim NextRow As Long 'Specify the path of the folder strPath = "E:\My Photos\2005\1152005\" 'Create the object of this folder Set objFolder = FSO.GetFolder(strPath) 'Check if the folder is empty or not If objFolder.Files.Count = 0 Then MsgBox "No files were found...", vbExclamation Exit Sub End If 'Adding Column names for A, B, and C Cells(1, "A").Value = "File Name" Cells(1, "B").Value = "Size" Cells(1, "C").Value = "Modified Date/Time...