Finder ラベルを変更するAppleScript

選択したFinder項目のラベルを変更するスクリプト.
(ドロップレットにする場合)

Change the Label of Selected Finder Item
Using as a dropplet

-- Finder選択項目のラベルを変更する
on open theDrops
  tell application "Finder"
    if number of (selection as list) = 1 then
      set selectedItem to first item of (selection as list)
      set colVal to label index of selectedItem
      set colVal to (colVal + 1) mod 8
      set label index of selectedItem to colVal
    end if
  end tell
end open

動作検証:
OSX: 10.6.6
ScriptEditor: 2.3(118)