-- このスクリプトは、７２dpi 以上の解像度のイメージを含むファイルを、７２dpi の解像度にダウンサンプルして保存します。

tell application "Finder"

activate
set myFolder to choose folder with prompt "イメージが保存されているフォルダを選択してください。"
set myResults to choose folder with prompt "保存用フォルダを選択してください。"
set nFiles to count folder myFolder each file

end tell

tell application "Canvas™ 8"

activate
set newdoc to make new document with properties {document type:illustration}

end tell

repeat with i from 1 to nFiles

tell application "Finder"

set f to file i of myFolder
set fName to get name of f

end tell

tell application "Canvas™ 8"

set obj to place (myFolder as string) & fName into document newdoc at position {100, 100}
set oType to get object type of obj

if oType = "Image" then

set img to convert obj to image

if get resolution of img > 72 then

set image resolution of img to 72 without preserving data
save newdoc in (myResults as string) & "new_" & fName as jpeg with useSelection

end if

end if

delete obj

end tell

end repeat

tell application "Canvas™ 8"

quit

end tell