指定フォルダ内のラベル（Yellow, Red, Orange）のファイル一覧を取得

AppleScript名：指定フォルダ内のラベル（Yellow, Red, Orange）のファイル一覧を取得

— Created 2017-12-05 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use mdLib : script "Metadata Lib" version "1.0.0" –https://www.macosxautomation.com/applescript/apps/Script_Libs.html#Metadata_Lib

set aLabelList to {5, 6, 7} –Yellow, Red, Orange
–0: No Label, 1: Gray, 2: Green, 3: Purple, 4: Blue, 5: Yellow, 6: Red, 7: Orange
set thePath to POSIX path of (path to desktop)
set aRes to spotlightFindByLabels(aLabelList, thePath) of me
–> list of POSIX path

on spotlightFindByLabels(aLabelList as list, thePath as string)
　　set aList to makeRepeatinglList(length of aLabelList, "kMDItemFSLabel == %@")
　　set aStr to retStrFromArrayWithDelimiter(aList, " OR ") of me
　　set fRes to mdLib’s searchFolders:{thePath} searchString:aStr searchArgs:aLabelList
　　return fRes
end spotlightFindByLabels

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList as list, aDelim as string)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　return (anArray’s componentsJoinedByString:aDelim) as string
end retStrFromArrayWithDelimiter

–指定回数、指定アイテムを連結したリストを作成
on makeRepeatinglList(hitNum as integer, hitItem as string)
　　set outList to {}
　　repeat hitNum times
　　　　set the end of outList to hitItem
　　end repeat
　　return outList
end makeRepeatinglList