targetが重複しているFinder Windowをクローズする

Posted on 7月 22, 2021 by Takaaki Naganoya

日常的に生じている不満を解消するための、ちょっとしたかき捨てScript……になるはずだったものです。

Classic Mac OSからMac OS Xへの移行後、Finderの仕様で大きく変わった点が１つあります。「同じフォルダのウィンドウを複数枚オープンできるようになった」点です。

その結果、

といったように、同じフォルダを指し示すウィンドウが何枚もたまる現象が起きています。これは別にバグでも不具合でもありません。仕様です。

この重複Windowを掃除するためのScriptを書いてみました。

AppleScript名：ターゲットが同じWindowを取得（未遂）.scpt

tell application "Finder"
　　tell window 1
　　　　set aTarg to target
　　end tell
　　
　　set wList to every window whose target　 is equal to aTarg
end tell

★Click Here to Open This Script　

何も考えずに書き始めると、こんな（↑）感じでしょう。ただ、このScriptは動きません。フィルター参照は、たとえばファイル名や拡張子、ファイル種別（kind）あたりには使えるものの、この「target」属性に対しては効きません。

そこで、仕方なくちょっと腰をすえて書いてみました。これ（↓）を動かすと、

のように重複ウィンドウが一掃されます。これでいいはずです。

AppleScript名：targetが重複しているFinder Windowをクローズする.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2021/07/22
—
–　　Copyright © 2021 Piyomaru Software, All Rights Reserved
—

set clList to {}

tell application "Finder"
　　set wList to every window
　　–> {Finder window id 1775 of application "Finder", Finder window id 1612 of application "Finder", Finder window id 1740 of application "Finder", Finder window id 1641 of application "Finder", Finder window id 1630 of application "Finder", Finder window id 1618 of application "Finder", Finder window id 1599 of application "Finder", Finder window id 1592 of application "Finder", Finder window id 1586 of application "Finder", Finder window id 1580 of application "Finder", Finder window id 1575 of application "Finder", Finder window id 1569 of application "Finder", Finder window id 1563 of application "Finder"}
　　
　　set tList to (target of every window) as alias list
　　–> {alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Documents:AppleScript 12.0:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:", alias "Macintosh HD:Users:me:Public:ドロップボックス:"}
　　
　　–ターゲットフォルダをユニーク化
　　set bList to removeDuplicates(tList) of me
　　–> {alias "Macintosh HD:Users:me:Documents:AppleScript 12.0:", alias "Macintosh HD:Users:me:Public:ドロップボックス:"}
　　
　　–ユニーク化したターゲットでループ
　　repeat with i in bList
　　　　set j to (contents of i) as alias
　　　　set firstF to true
　　　　
　　　　–ウィンドウでループ
　　　　repeat with ii in wList
　　　　　　set jj to contents of ii
　　　　　　set tmpTarg to (target of jj) as alias
　　　　　　
　　　　　　if tmpTarg is equal to j then
　　　　　　　　–最初の１つ目のWindowだけ残す
　　　　　　　　if firstF = true then
　　　　　　　　　　set firstF to false
　　　　　　　　else
　　　　　　　　　　–２個目以降のWindowはクローズ対象リストに入れる
　　　　　　　　　　set the end of clList to jj
　　　　　　　　end if
　　　　　　end if
　　　　end repeat
　　end repeat
　　
　　–クローズ対象とされるFinder Windowを順次クローズ
　　repeat with i in clList
　　　　set j to contents of i
　　　　try
　　　　　　ignoring application responses
　　　　　　　　close j
　　　　　　end ignoring
　　　　end try
　　end repeat
end tell

on removeDuplicates(aList)
　　set newList to {}
　　repeat with i from 1 to (length of aList)
　　　　set anItem to item 1 of aList
　　　　set aList to rest of aList
　　　　if {anItem} is not in aList then set end of newList to anItem
　　end repeat
　　return newList
end removeDuplicates

★Click Here to Open This Script　

edama2さんがコメント欄に投稿してくださったプログラムを掲載しておきます。自分が「安全のためにこのぐらいの処理は必要（かも？）」と付けまくった処理を「それ別に実際のところ必要ないんじゃない？」と省略された感じです。

あとは、edama2さんのScriptだと「最前面のWindowのtargetと同じtargetを持つWindowをクローズする」という動作ですが、自分のScriptは「targetが重複しているWindowは１つを残してあとすべてをクローズする」という動作を行うので、厳密にいえば違うものです。

AppleScript名：targetが重複しているFinder Windowをクローズする v2.scpt

–　　Created by: edama2
–　　Created on: 2021/07/22

tell application "Finder"
　　tell front window
　　　　set aTarg to target
　　end tell
　　set aList to (every Finder window) as list
　　repeat with num from 2 to count aList
　　　　set anItem to (aList)’s item num
　　　　if (anItem’s target is aTarg) then close anItem
　　end repeat
end tell

★Click Here to Open This Script　

フォルダの存在確認

Posted on 3月 20, 2018 by Takaaki Naganoya

AppleScript名：フォルダの存在確認

— Created 2017-10-31 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set bPath to POSIX path of (choose folder)
set bExt to current application’s NSFileManager’s defaultManager()’s fileExistsAtPath:bPath isDirectory:true
–> true

★Click Here to Open This Script　

AppleScript名：フォルダの存在確認(OLD Style AS)

set aFolder to choose folder

tell application "Finder"
　　set aRes to exists of aFolder
　　–> true
end tell

★Click Here to Open This Script　

２フォルダ間の内容比較

Posted on 3月 20, 2018 by Takaaki Naganoya

AppleScript名：２フォルダ間の内容比較

— Created 2015-12-22 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aFol to (choose folder with prompt "Select Folder A")
set bFol to (choose folder with prompt "Select Folder B")

set aPath to POSIX path of aFol
set bPath to POSIX path of bFol

set aFM to current application’s NSFileManager’s defaultManager()
set aRes to (aFM’s contentsEqualAtPath:aPath andPath:bPath) as boolean

★Click Here to Open This Script　

指定フォルダからカスタムアイコンを削除する v3

Posted on 2月 8, 2018 by Takaaki Naganoya

指定のフォルダに指定されていたアイコン画像を削除するAppleScriptです。

特定のフォルダを監視して、ファイルが追加されたり削除されたりすると、指定のAppleScriptを実行する仕組み「フォルダアクション」がmacOSに標準装備されています。

フォルダアクションはフォルダアクションでいいのですが、あまり融通が効かないので、フォルダアクションを使わずにAppleScript独自でフォルダを監視することはよくあります。

そして、監視対象に指定したフォルダのアイコンを変更し、わかりやすく「監視対象である」ことをユーザーに伝えることも、よくある話です。そして、監視処理が終了したあとでフォルダのアイコンをOS標準の元のものに戻しておく必要があります。本Scriptはそういう処理に用いるものです。

AppleScript名：指定フォルダからカスタムアイコンを削除する v3

— Created 2015-10-21by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set aFolder to POSIX path of (choose folder with prompt "Choose Target Folder") –カスタムアイコン削除対象のフォルダ
removeCustomIcon(aFolder) of me

on removeCustomIcon(aFolder)
　　set aSW to current application’s NSWorkspace’s sharedWorkspace()
　　aSW’s setIcon:(missing value) forFile:aFolder options:0 –Erase
　　
　　tell application "Finder"
　　　　update ((POSIX file aFolder) as alias) –Refresh State
　　end tell
end removeCustomIcon

★Click Here to Open This Script　

指定フォルダに指定アイコン画像をつける v3

Posted on 2月 8, 2018 by Takaaki Naganoya

指定のフォルダに指定アイコン画像をつけるAppleScriptです。

そして、監視対象に指定したフォルダのアイコンを変更し、わかりやすく「監視対象である」ことをユーザーに伝えることも、よくある話です。本Scriptはそういう処理に用いるものです。

もちろん、処理が終了したあとは監視対象フォルダのアイコンは元に戻しておくべきで、「指定フォルダからカスタムアイコンを削除する v3」とペアで使っています。

AppleScript名：指定フォルダに指定アイコン画像をつける v3

— Created 2015-10-21 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set anIconPath to POSIX path of (choose file of type {"com.apple.icns", "public.tiff"} with prompt "Choose Icon File")
set aFolder to POSIX path of (choose folder with prompt "Choose Folder")
setCustomIcon(anIconPath, aFolder) of me

on setCustomIcon(aPath, aFolder)
　　set aFolderPath to current application’s NSString’s stringWithString:aFolder
　　
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPath
　　set aImage to current application’s NSImage’s alloc()’s initWithContentsOfURL:aURL
　　
　　set aSW to current application’s NSWorkspace’s sharedWorkspace()
　　aSW’s setIcon:(missing value) forFile:aFolder options:0 –Erase
　　tell application "Finder"
　　　　update ((POSIX file aFolder) as alias) –Refresh State
　　end tell
　　
　　aSW’s setIcon:aImage forFile:aFolderPath options:0 –Write
　　tell application "Finder"
　　　　update ((POSIX file aFolder) as alias) –Refresh State
　　end tell
end setCustomIcon

★Click Here to Open This Script　

AppleScriptの穴

Useful & Practical AppleScript archive. Click '★Click Here to Open This Script' Link to download each AppleScript

カテゴリー: folder

targetが重複しているFinder Windowをクローズする

フォルダの存在確認

２フォルダ間の内容比較

指定フォルダからカスタムアイコンを削除する v3

指定フォルダに指定アイコン画像をつける v3