こっちのコードの方が綺麗なんだが...

動かない。つうか、動かしているんだが、

　iPhoto (not responding)
　iPhoto のメモリが200MBから800MB増加後、200MBまで減少を繰り返す

で、終らないです。なんともならんな。

おそらくは、every photo で、全部のphotoの情報を取って来るのがいけないのだと思う。しかも、一件ずつ、AppleEvent 出しているんだと思う。そうとしか思えない。AppleEvent Monitor とかないのかな。

この repeat with .. every を直してくれれば、ApplpScript 悪口を言うのは、金輪際いたしません。

if 文は、AppleScript を信用してないからです。

tell application "iPhoto"
　　　　set small to 0
　　　　repeat with aPhoto in (every photo whose width < 400)
　　　　　　　　if width of aPhoto < 400 then
　　　　　　　　　　　　remove aPhoto from album 0
　　　　　　　　　　　　set small to small + 1
　　　　　　　　　　　　if small mod 100 = 0 then
　　　　　　　　　　　　　　　　say small
　　　　　　　　　　　　　　　　say "is removed"
　　　　　　　　　　　　　　　　-- empty trash
　　　　　　　　　　　　end if
　　　　　　　　end if
　　　　end repeat
　　　　-- empty trash
　　　　small
end tell