–外付けHDDをSpotlightの処理対象外に指定していたので、mdfindコマンドを使わなかった
tell application “Finder”
　　set fList to entire contents of aFol as alias list
end tell

–Graphic Converterを非表示状態に
tell application “System Events”
　　tell process “GraphicConverter”
　　　　set visible to false
　　end tell
end tell

–メインループ
repeat with i in f_r
　　set j to contents of i
　　try
　　　　set aInfo to info for j
　　　　set aF to folder of aInfo
　　　　
　　on error
　　　　set aF to false
　　end try
　　
　　if aF = false then
　　　　try
　　　　　　–古いMac OSのファイルにアクセスしたときに、問題が発生することがあったために対処した
　　　　　　with timeout of 10 seconds
　　　　　　　　tell application “Finder”
　　　　　　　　　　set aType to file type of j
　　　　　　　　end tell
　　　　　　end timeout
　　　　　　
　　　　　　if aType = “PICT” then
　　　　　　　　convToJPEG(j) of me
　　　　　　end if
　　　　end try
　　　　
　　end if
end repeat

–指定のファイルをGCでオープンしてJPEGでSave
on convToJPEG(aFile)
　　tell application “GraphicConverter”
　　　　–オープン中のドキュメントをすべてクローズ
　　　　try
　　　　　　close every window saving no –GCにはDocumentというオブジェクトは定義されていない。すべてwindowで操作
　　　　end try
　　　　
　　　　silentopen aFile –openコマンドだとエラーやダイアログ表示を行うが、silentopenコマンドだとメッセージが出ないらしい。ただし、非表示オープンモードではない
　　　　
　　　　set saveRes to (save window 1 in aFile as JPEG without makeCopy and wwwready)
　　　　–> 保存成功の場合には0が返る
　　　　
　　　　–オープン中のドキュメントをすべてクローズ
　　　　try
　　　　　　close every window saving no
　　　　end try
　　end tell
　　
　　–保存したファイルにJPEGの拡張子を付ける
　　if saveRes = 0 then
　　　　tell application “Finder”
　　　　　　set aName to name of aFile
　　　　　　set aName to aName & “.jpg”
　　　　　　set name of aFile to aName
　　　　end tell
　　end if
　　
end convToJPEG

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に