Bridgeのお気に入りを変更する

AddFavorites2Bridge.scpt

(*
	Bridgeのお気に入りを変更します。フォルダを指定すると第一階層までの内包するフォルダを追加したり、全クリアした上で上書きします。Bridgeにはファイルも追加できますが、フォルダのみ追加します。
*)

set myFlag to the button returned of (display dialog "Bridgeのお気に入りを変更します" buttons {"上書き", "追加", "キャンセル"} default button 3 with icon 2)
set myFolder to choose folder with prompt "追加フォルダのある場所を指定"
set myPath to (path to temporary items as text) & "AddFavorites2BridgeTemp.jsx"
tell application "Finder"
	set myList to every item of myFolder
	try
		set the myFile to open for access file myPath with write permission
		set eof file myPath to 0
		repeat with i in myList
			if class of i is alias file then set i to original item of i
			if class of i is folder then
				set i to i as Unicode text
				set i to ¬
					"myTmb=new Thumbnail(" & ¬
					(quoted form of POSIX path of i) ¬
						& ");app.favorites.insert(myTmb);"
				write i as «class utf8» to the myFile starting at eof
			end if
		end repeat
	end try
	close access file myPath
end tell
tell application "Adobe Bridge CC"
	activate
	if myFlag = "上書き" then do javascript "app.favorites.clearAll();"
	do javascript "#include " & (POSIX path of myPath)
end tell

仕事フォルダを登録してFavoriteパネルを弾力的に使ってみるとか。