AppleScript アップルスクリプト 質問、発表 4

現在のファイルネームをSpotlightコメントに書き込むスクリプト
選択したフォルダの第一階層のみ。
あとすでにSpotlightコメントがある場合は、上書きされる。

on run
tell application "Finder"
set targetFolder to choose folder
set targetFolderPath to targetFolder as alias
set targetFolderPath to targetFolderPath as Unicode text

list folder targetFolder without invisibles
set targetFolderItemList to result

if targetFolderItemList is not {} then
repeat with theItemName in targetFolderItemList
set theItemPath to (targetFolderPath & theItemName) as alias
set comment of theItemPath to theItemName
end repeat
end if

end tell
end run