最前面のFinder Windowをクローン

Finderの最前面のウィンドウを、同じ対象フォルダ＆同じビュー形式で新規作成するAppleScriptです。

昔どこかで拾ってきたものを使い続けているものです。利用頻度はかなり高く、ファイルの整理をFinder上で行なっているときには、たいてい利用しています。

ファイル作成日が2011年になっていましたが、実際にはさらに古い時期のものだと思います。

開けてみて驚きました（v1）。海外のScripterとの間でなんとなく成立している、

　・過度に英文っぽく書かない
　・「the」の乱発はやらない（できてもやらない）
　・過度に短縮記述は行わない
　・よほどの必要性がないかぎり、暗黙の実行結果「result」は使わない（何を処理しているかがわかりにくいので）
　・「get」は省略できる場合が多いので、あえて書かない

というお約束が守られておらず、「the」は入りまくっているわ、「get」が無意味に（この後でresultで受け取っていたのだろうか）使われているわで、読みにくいことこのうえない代物でした。

そこで、v2のように書き換えました。これならかなり読みやすく、わかりやすく、無駄な処理もありません。

はるかかなた昔のAppleScriptの中には、今見るとあまり書きこなれていない記述もあったりして、読み直すとかなり驚くものがたくさんあります。

AppleScript名：最前面のWindowをクローン v1

tell application "Finder"
　　set sDisk to (name of startup disk) & ":"
　　
　　get the exists of the front Finder window –なにこれ？？？
　　if the (exists of the front Finder window) is true then
　　　　try
　　　　　　set newWindow to target of front window
　　　　　　set oldView to current view of front window
　　　　　　make new Finder window to newWindow
　　　　　　set current view of front window to oldView
　　　　end try
　　else
　　　　try
　　　　　　make new Finder window to alias sDisk
　　　　　　set the current view of the front Finder window to column view
　　　　end try
　　end if
end tell

★Click Here to Open This Script　

AppleScript名：最前面のFinder Windowをクローン v2

tell application "Finder"
　　set wEx to (exists of front Finder window)
　　
　　if wEx = true then
　　　　try
　　　　　　set winRef to a reference to front window
　　　　　　set curTarget to target of winRef
　　　　　　set curView to current view of winRef
　　　　　　make new Finder window to curTarget
　　　　　　set current view of winRef to curView
　　　　end try
　　else
　　　　try
　　　　　　make new Finder window
　　　　　　set current view of front Finder window to list view
　　　　end try
　　end if
end tell

★Click Here to Open This Script　