iPhoto - Automator Import Script Improvements

Hi,

This worflow verify If the photofolder content (qty of files) is different than the day before.

During import, this script does not copy the images into iPhoto library, if the check box "Copy the files to iPhoto library" is unchecked.

This script does not list hidden folders.

This script import JPEG's files only.

This workflow has been tested on Mavericks only.

Try this:

Open Automator, select 'Application'

Add the 'Run AppleScript' action.

Clear all text in the 'Run AppleScript' action.

Copy/paste this script:

set watchFolder to ("pathToWatchFolder" as POSIX file) as text -- remove 'pathToWatchFolder' in this line and drag/drop your folder between the two double quote.
if watchFolder does not end with ":" then set watchFolder to watchFolder & ":"
set txtFile to watchFolder & ":numberOfFiles.txt"
set n1 to 0
try
     set n1 to (read file txtFile) as integer -- the number of files (the day before)
end try
do shell script "/usr/bin/find " & (quoted form of POSIX path of watchFolder) & " -type f | wc -l >" & quoted form of POSIX path of txtFile -- update the number of files in file "numberOfFiles.txt"
set n2 to (read file txtFile) as integer -- the number of files (now)


if n1 is n2 or n2 = 0 then error -128 -- same number of files or no files (this leaves this process immediately).

Important : change the path in the first line of this script.

Add your actions to (Delete current iPhoto library and to Create new one).

Add the 'Run AppleScript' action.

Clear all text in the 'Run AppleScript' action.

Copy/paste this script:

set watchFolder to ("pathToWatchFolder" as POSIX file) as text -- remove 'pathToWatchFolder' in this line and drag/drop your folder between the two double quote.
my getSubFolders({watchFolder})


on getSubFolders(tFolders)
     repeat with f in tFolders
          tell application "System Events"
               tell folder f
                    set jpegs to (POSIX path of files whose type identifier is "public.jpeg") -- get JPEG's file only
                    set ListSubF to (path of folders whose visible is true)
                    set tName to name
               end tell
          end tell
          if jpegs is not {} then my import_To_iPhoto(tName, jpegs)
          if ListSubF is not {} then my getSubFolders(ListSubF)
     end repeat
end getSubFolders


on import_To_iPhoto(t_Name, theseFiles)
     tell application "iPhoto"
          repeat while importing is true -- wait if importing
               delay 2
          end repeat
          set alb to new album name t_Name
          import from theseFiles to alb without force copy -- 'without force copy': use the advanced preference of iPhoto
     end tell
end import_To_iPhoto

Important : change the path in the first line of this script.

Save the workflow..

To make a daily check of your photo folder, You can use a Calendar events (this method is for Mavericks, it may be different on other versions of the OS X):

Open the "Calendar" application.

Create a new event, set the repeat to 'Every Day'.

Set the alert to 'Custom', select "Open File" in the first popup, select "Others" in the second popup and choose your workflow (Application)

Select "One day of event" in the third popup

Change the hour in the field.