新規フォルダにまとめる.scpt

ダウンロード：into_newfolder.zip（6KB）

(*

動作説明：

このスクリプトを実行すると選択している複数のファイルを新規フォルダにまとめることができます。

スクリプトの実行中に出るダイアログボックスで新規に作成するフォルダ名を入力することができます。

ファイルを何も選択していない状態で実行するとダイアログで警告をだし、処理が終了します。

使い方：

このスクリプトをAppleScriptエディタ.appの書類ウインドウにコピー＆ペーストして「ユーザー・スクリプト・フォルダ」(~/Library/Scripts)に保存してください。

メニューバーのスクリプトメニューから実行できます。

Takayuki Ueno

*)

tell application "Finder"

try

set objList to selection --選択項目のListを取得

set obj1 to item 1 of objList --代表ファイルを取得

set placeObj to container of obj1 --代表ファイルの保存場所を取得

make new folder at placeObj --新規フォルダ

set newFolder to result

set newfolderName to name of newFolder

move objList to newFolder --選択したファイルを新規フォルダ内に移動

display dialog "フォルダ名を入力してください。" default answer newfolderName buttons {"OK"} default button 1 with icon note

set ans to result

set pushB to button returned of ans --ifでどのボタンが押されたかを判定するのに利用

set intext to text returned of ans --変数に入力された文字を格納

set name of newFolder to intext

on error

display dialog "ファイルが選択されていません。" with icon caution

end try

end tell