[ AppleScript ] Finder 関連のサンプル集

だるかぶ

サンダルでスーパーカブ乗りの『だるかぶ』です！
ご訪問ありがとうございます。ゆっくりしていってね。（本ページは広告を含みます。）

Finder 関連の AppleScript サンプル集です。

Finder で新規フォルダを作成するサンプル

デスクトップに「123456」という新規フォルダを作成します。

tell application "Finder" make new folder at desktop with properties {name:"123456"}
end tell

動作確認：Mac OS 9.2.2

Finder でクリップボードの中身を取り出すサンプル

クリップボードの中身を取り出す AppleScript のサンプルです。

tell application "Finder" set CB to the clipboard log "クリップボードの中身→" & CB
end tell

動作確認：Mac OS 10.4.5

Finder でカレントユーザの色んなパスを取得するサンプル

カレントユーザの色んなパスを取得する AppleScript のサンプルです。

tell application "Finder" set a to desktop as text -- デスクトップ set b to home as text -- ホーム
end tell

ハードディスク名から始まる絶対パス？ではなく、環境に依存しない汎用的なパス指定をしたいもんですね。
動作確認：Mac OS 10.4.7

[ AppleScript ] Finder でラベルを付けるサンプル

次のサンプルでは、[ ホーム ] フォルダ内の [ デスクトップ ] フォルダに、オレンジのラベルを設定しています。

tell application "Finder" try set label index of desktop to 1 on error log ("Error") end try
end tell

ラベルの種類を変更するには、

set label index of desktop to 1

と言うコードの末尾にある数字を変更する事で、ラベルの種類を変更できます。 どの数字がどのラベル名に対応しているかは、次の通りです。

0：ラベルなし
1：オレンジ
2：レッド
3：イエロー
4：ブルー
5：パープル
6：グリーン
7：グレイ

動作確認 : Mac OS 10.5.7 + AppleScript 2.0.1

Finder でシステム終了するサンプル

システム終了する AppleScript のサンプルです。

tell application "Finder" shut down
end tell

スクリプトを実行すると、ダイアログを出さずに「システム終了」します。 動作確認：Mac OS 10.4.5

Finder で選択階層に新規フォルダを作成するスクリプト

選択階層に新規フォルダを作成する AppleScript のサンプルです。

• Mac OS X の Finder でリスト表示していると、任意の場所で新規フォルダが作りにくい。

• 普通に「新規フォルダ」を選択すると、リスト表示している最上層にフォルダが作られてしまう。

• コンテクストメニューかスクリプトで何とかならんだろうか…。

なんて考えて作ってみました。

• フォルダを選択していたら、その中に新規フォルダを作成。

• ファイルを選択していたら、同階層に新規フォルダを作成。

• 複数項目を選択していると、その分処理を繰り返し。

tell application "Finder" repeat with ThisFile in (selection as list) set a to (ThisFile as alias) as text if a ends with ":" then make new folder at (a as alias) else make new folder at (my MyFilePath(a) as alias) end if end repeat
end tell
on MyFilePath(this_text) set y to 0 repeat with thisChar in this_text set y to y + 1 set x to the offset of thisChar in ":" if x is not 0 then set z to y end if end repeat return (text from character 1 to z of this_text)
end MyFilePath

動作確認：Mac OS 10.4.8

Finder で選択しているファイルにコメントを付けるサンプル

Finder で選択しているファイルすべてにコメントを付ける AppleScript のサンプルです。スクリプトメニューから実行できるので便利。

display dialog "Comment ?" default answer "Comment" with icon 1
set myTitle to text returned of result
tell application "Finder" repeat with thisF in (selection as list) set comment of thisF to myTitle end repeat
end tell

既にコメントが存在した場合、既存のコメントを上書きしますので、取り扱いにご注意下さい。
動作確認：Mac OS 10.4.6

Finder のウインドウをリサイズするサンプル

しつこいようですが、今度は、Finder のウインドウをリサイズする AppleScript です。 Finder のウインドウサイズだけ変えても面白くないので、mi のウインドウも一緒に変更してみます。

ちなみに、私のディスプレイサイズは、1600-1200 です。

// mi
tell application "mi" activate set bounds of window (get windowindex of document 1) to {0, 44, 1200, 1200}
end tell
// Finder
tell application "Finder" activate set bounds of window 1 to {1200, 44, 1600, 1200}
end tell

これで、画面左に mi のウインドウ、画面右に Finder のウインドウがピッタリ配置され、ファイルをドロップしやすくなった。

上の要領で、mi + Safari や、Finder + Cyberduck のセット等を作っておき、メニューバー登録しておくと、ワークスペースを簡単に切り替えられて便利。

Finder で日付を名前にして新規フォルダを作成するサンプル

日付を名前にして新規フォルダを作成する AppleScript のサンプルです。 リクエストがあったんで作ってみました。

copy (current date) to today
set Y to year of today
set M to month of today
set D to day of today
if D ≤ 9 then set D to "0" & D
if M is January then set M to "01"
if M is February then set M to "02"
if M is March then set M to "03"
if M is April then set M to "04"
if M is May then set M to "05"
if M is June then set M to "06"
if M is July then set M to "07"
if M is August then set M to "08"
if M is September then set M to "09"
if M is October then set M to "10"
if M is November then set M to "11"
if M is December then set M to "12"
tell application "Finder" make new folder at desktop with properties {name:(Y as string) & (M as string) & (D as string)}
end tell

動作確認：Mac OS 10.4.4

ファイルリストにあるファイルに Finder でラベルを付けるサンプル

ファイルリスト ( テキストファイル ) に合致するファイルに Finder でラベルを付けるアップルスクリプトのサンプルです。

set Sourcetxt to (choose file with prompt "ソーステキストファイルを指定して下さい" as string) as string
set ThisFolder to (choose folder with prompt "フォルダを選んでください")
-- ファイル読み込み
set aFilePointer to open for access alias Sourcetxt
set aData to read aFilePointer as text
close access aFilePointer
-- 配列に格納
set AppleScript's text item delimiters to return
set aList to text items of aData
set AppleScript's text item delimiters to tab
tell application "Finder" repeat with i from 1 to count of aList try set theFile to ((ThisFolder as text) & (item i of aList) as text) as alias set label index of theFile to 4 on error log ("error" & item i of aList) end try end repeat
end tell

ファイルリスト ( テキストファイル ) は、文字コードが Shift-JIS で、改行コードが CR で、最終行の改行無しにしておかないと動きません。

ドロップしたファイルにコメントを付加するサンプル

ドロップされたファイルすべてにコメントを付加する AppleScript のサンプルです。アプリケーションとして保存してから使います。

on open myList display dialog "Comment ?" default answer "Comment" with icon 1 set myTitle to text returned of result repeat with thisF in myList tell application "Finder" set comment of thisF to myTitle end tell end repeat
end open

既にコメントが存在した場合、既存のコメントを消去して新しいコメントを追加しますので、取り扱いにご注意下さい。
動作確認：Mac OS 10.4.6

デスクトップの解像度を取得するサンプル

デスクトップの解像度を取得する AppleScript のサンプルです。 the desktop と言うオブジェクトは、Mac OS 10.4 以降じゃないと使えないらしい。

tell application "Finder" bounds of the window of the desktop
end tell

動作確認：Mac OS 10.4.5

選択項目の種類を取得するサンプル

Finder で選択している項目の種類を取得する AppleScript のサンプルです。

tell application "Finder" repeat with ThisFile in (selection as list) set ThisFileInfo to info for ThisFile as alias log (kind of ThisFileInfo) end repeat
end tell

動作確認：Mac OS 10.4.7

変数の内容をテキストファイルに書き出すサンプル

変数の内容をテキストファイルに書き出す ( 追記 ) する AppleScript のサンプルです。 デスクトップに「test.txt」と言う名前のファイルが存在しない場合、新規作成します。ファイルが既に存在していれば追記。

tell application "Finder" set aText to ("日本語のサンプル文字列" & return) set aTextFile to open for access ((desktop as text) & "test.txt") with write permission set aEOF to get eof of aTextFile try write aText starting at (aEOF + 1) to aTextFile on error aErrorText display dialog aErrorText end try close access aTextFile
end tell

日本語を書き出す時、文字コードはどうなるんだろう？
動作確認：Mac OS 10.4.7

現場からは以上です。それでは、またッ！！！

だるかぶ

最後までお読みいただきありがとうございます！ スキ・コメント・シェア・フォローなどで応援いただけると『だるかぶ』のやる気がアップします！

記事内容の修正について記載している内容は記事執筆時の情報です。 できるだけ最新情報を掲載するようにしていますが、情報が間違っている場合は「コメント」でご指摘いただけるとありがたいです。