script spd
　　property fList : {}
end script

set renCount to 0

set (fList of spd) to {}

set aFolder to (choose folder)

set aDate to current date

set (fList of spd) to getFilePathList(aFolder, "JPG") of me

repeat with i in (fList of spd)
　　set j to contents of i
　　chkCreationDateAsExif(j) of me
　　set renCount to renCount + 1
end repeat

set bDate to current date

return {bDate – aDate, renCount}

on chkCreationDateAsExif(aFile)
　　tell application "Image Events"
　　　　launch
　　　　set this_image to open (aFile as alias)
　　　　
　　　　try
　　　　　　tell this_image
　　　　　　　　set aVal to (value of metadata tag "creation")
　　　　　　end tell
　　　　on error
　　　　　　return
　　　　end try
　　　　
　　　　close this_image
　　end tell
　　
　　set a to current application’s NSString’s stringWithString:aVal
　　set {aDateStr, aTimeStr} to (a’s componentsSeparatedByString:" ") as list
　　set bDateStr to repChar(aDateStr, ":", "/") of me
　　set fullDate to date (bDateStr & " " & aTimeStr)
　　
　　set aDic to current application’s NSMutableDictionary’s dictionaryWithObject:fullDate forKey:(current application’s NSFileModificationDate)
　　set aFM to current application’s NSFileManager’s defaultManager()’s setAttributes:aDic ofItemAtPath:(POSIX path of aFile) |error|:(missing value)
end chkCreationDateAsExif

–文字置換
on repChar(origText as string, targChar as string, repChar as string)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to targChar
　　set tmpList to text items of origText
　　set AppleScript’s text item delimiters to repChar
　　set retText to tmpList as string
　　set AppleScript’s text item delimiters to curDelim
　　return retText
end repChar

on getFilePathList(aFol, aExt)
　　set aFol to current application’s |NSURL|’s fileURLWithPath:(POSIX path of aFol)
　　
　　set aFM to current application’s NSFileManager’s defaultManager()
　　set urlArray to aFM’s contentsOfDirectoryAtURL:aFol includingPropertiesForKeys:{} options:(current application’s NSDirectoryEnumerationSkipsHiddenFiles) |error|:(missing value)
　　set thePred to current application’s NSPredicate’s predicateWithFormat:"pathExtension == [c]%@" argumentArray:{aExt}
　　set anArray to urlArray’s filteredArrayUsingPredicate:thePred
　　return anArray as list — URLs pre-10.11, files under 10.11
end getFilePathList