Importing in to iPhoto using file name date/time

Question

Hi
+*I posted this originally in to iPhoto section but they suggest I submit here to see if anyone knows if there's an applescript. Thanks!*+
I'm not too sure on how to exactly explain my problem but here goes...
I have a mobile phone that does not save date/time taken data to the picture file when it takes photos. All of my previous phones/cameras have so this has never been a problem before. I Bluetooth photos and then add them to iPhoto '08.
Problem is when they add they use the date/time added to create the event rather than the date/time taken. The picture filename displays date/time taken and I was wondering if there was a way to use the filename to have iPhoto adjust the metadata tag to the actual date/time taken? This would save me having to adjust time/date for each set of photos. The filename is for example P090308_12.00.jpg if taken on 09/03/08 at 12.00pm.
I hope this is clear enough and that someone has some advice. Thanks for your help

Answer 1

01. As per casdvm, download 'ExifTool-7.20.dmg' (872 KB in size), and install 'exiftool''.
02. Try the provided starter code, editing it according to your needs ...
--- Code starts here ---
tell application "iPhoto"
set tSelection to selection -- Obtain list of selected photos.
repeat with i in tSelection
try -- Capture any unexpected AppleScript error(s).
set imagePath to (image path of i) -- Obtain full path of file.
set imagePath to quoted form of imagePath -- Encase files' full path in single quote marks.
set {oAStid, AppleScript's text item delimiters} to {AppleScript's text item delimiters, "/"}
set imageName to last text item of imagePath as string -- Extract file name from files' full path.
set AppleScript's text item delimiters to oAStid
set imageName to get (characters 2 through ((count imageName) - 5) of imageName) as string -- Extract date and time values from file name.
set tYear to (get (characters 5 through 6 of imageName) as string) -- Extract year from file name.
if (tYear as number) > ((do shell script "date +%y") as number) then
set tYear to ("19" & tYear) as string -- Append '19' before 'tYear'.
else
set tYear to ("20" & tYear) as string -- Append '20' before 'tYear'.
end if
set createDate to tYear & "." & (get (characters 3 through 4 of imageName) as string) & "." & (get (characters 1 through 2 of imageName) as string) & " " & (get (characters 8 through 9 of imageName) as string) & "." & (get (characters 11 through 12 of imageName) as string) & ".00"
do shell script ("exiftool -DateTimeOriginal='" & createDate & "' -CreateDate='" & createDate & "' -overwriteoriginal_inplace " & imagePath) -- View 'exiftool -h' in 'Terminal'.
end try
end repeat
end tell
--- Code ends here ---