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

選択階層に新規フォルダを作成する 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