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 |
| 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 |
