Finder ウインドウをカラム表示で

あけましておめでとうございます。今年もよろしくお願いします。

さて、今日のお題は、複数の Finder ウインドウをタイル状に並べて、カラム表示にする AppleScript です。ファイル操作をするときに便利です。ファイルを適切なフォルダに移動して、デスクトップはいつもきれいに片付けておきましょう。

私は System 7 上で動いた「Greg's Browser」以来のカラム表示ファンです。階層をキーボードでたどるのが簡単だし、パスを把握しやすいところがいいのです。

そこで、Finder ではいつも２つのカラム表示にしたウインドウを開いています。ファイルの移動／コピーは、この２つのウインドウ間でドラッグ＆ドロップするわけです。

以下のスクリプトをスクリプトメニューから実行すると、いい感じで2枚のウインドウがタイル状に上下で並びます。（３枚以上のウインドウがすでに開かれている場合は、それらが上下に並びます）

tell application "Finder"
	
	(*最低でも2枚のウインドウがないと使う意味がないから*)
	repeat
		if number of window ≧ 2 then exit repeat
		make new Finder window
	end repeat
	
	(*デスクトップの幅、高さを得る*)
	set the_screen_size to bounds of window of desktop
	set the_window_width to item 3 of the_screen_size
	set the_window_height to (item 4 of the_screen_size) - 21 - 29
	
	(*ウインドウの幅、高さを決定*)
	set the_window_height to the_window_height / (number of windows)
	set the_window_width to the_window_width * 0.75
	
	repeat with i from 1 to number of windows
		tell window i
			try
				set current view to column view
				set bounds to {0, the_window_height * (i - 1) + 21 + 23, the_window_width, the_window_height * i + 21}
			on error
				(*情報ウインドウなど、view を変更できないウインドウがあることにそなえて*)
				display dialog "エラー：操作できないウインドウがあります" buttons {"Cancel"} default button 1 with icon caution
			end try
		end tell
	end repeat
	
end tell

以下の記事を参考にしました。
macosxhints.com - Tile Safari windows via AppleScript

投稿: 2007年01月04日 (木) at 02:07 | | | |
Trackback Ping URL (T)

◀ | | ▶
◀ | | ▶

getBlogName(); > getCategoryName("C53887262"); >

Finder ウインドウをカラム表示で

> >