ちょ〜久々のAppleScript。Finderのタグの処理を検証してみた話。

set chooseFolder to choose folder with prompt "処理対象のフォルダを選択してください。" --処理対象のフォルダを選択
set everyFiles to every file of chooseFolder --フォルダから全てのファイルを取得

-- ▼▼▼ 数値入力ダイアログ	
	repeat
		try
			set inputNum to text returned of (display dialog "いくつおきに処理しますか？" with icon note default answer "0") as number
			exit repeat
		on error
			display dialog "数字を入力してください。" --エラー処理
		end try
	end repeat
	------------------

-- ▼▼▼ タグの色を選択
	set chooseColors to choose from list {"なし", "レッド", "オレンジ", "イエロー", "グリーン", "ブルー", "パープル", "グレイ"} with prompt "タグの色を選択してください。" with multiple selections allowed --複数選択可

set chooseColorsArray to {} --空のリストを準備

	if chooseColors contains "なし" then
		set end of chooseColorsArray to "\"なし\""
	end if
	if chooseColors contains "レッド" then
		set end of chooseColorsArray to "\"レッド\\n6\","
	end if
〜〜〜 以下、省略 〜〜〜

set chooseColorsArray to chooseColorsArray as Unicode text

-- ▼元から設定されているタグを削除。ディレクトリのファイルの数だけ繰り返す
	repeat with targetFiles in everyFiles
		set targetFilesTxt to targetFiles as Unicode text
		set processedFiles to POSIX path of targetFilesTxt
		-- ▼Finderで設定したタグを削除
		do shell script "xattr -wx com.apple.FinderInfo '00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00' " & processedFiles
		-- ▼改めて全てのタグを「なし（削除）」に設定
		do shell script "xattr -w com.apple.metadata:_kMDItemUserTags '(\"なし\\n0\")' " & processedFiles
	end repeat

-- ▼▼▼ ダイアログで入力した数値おきに処理する
	repeat with i from 1 to (count items of everyFiles) by (inputNum + 1)
		--display dialog i
		set targetFilesTxt to item i of everyFiles as Unicode text
		set processedFiles to POSIX path of targetFilesTxt
		
		-- ▼ダイアログで指定した色のタグを設定
		do shell script "xattr -w com.apple.metadata:_kMDItemUserTags '(" & chooseColorsArray & ")' " & processedFiles
	end repeat