on adding folder items to this_folder after receiving these_items
 set source_folder to ¬
  do shell script "find " & (POSIX path of (path to "cusr" as Unicode text)) & " -name 'CR2'"
 tell application "Finder"
  repeat with i from 1 to the count of these_items
   set this_item to (item i of these_items) as alias
   set this_info to info for this_item
   set file_name to name of this_info
   set file_ext to name extension of this_info
   set length_ext to ((length of file_ext) * -1) - 2
   set file_name to text 1 thru length_ext of file_name
   set destination_file to ¬
    ((POSIX file source_folder) as string) & file_name & ".cr2"
   move destination_file to folder this_folder
  end repeat
 end tell
end adding folder items to