[AppleScript]ファイル名のフォルダを作ってその中に入れる

拡張子をのぞいたファイル名で
フォルダを作って
その中にファイルを移動する。

----ファイルを選択して　FileAlias　に格納

set FileResult to choose file "変更するファイルを選択"

----エリアスを取得

set FileAlias to FileResult as alias

----FileAliasをテキスト形式に変更してFilePathに格納

set FilePath to FileAlias as Unicode text

----FileAliasの情報を取得ObjInfoに格納

set ObjInfo to info for FileAlias

----ObjInfoからファイル名を抜き出しFileNameに格納

set FileName to name of ObjInfo as Unicode text

----ObjInfoから拡張子を抜き出しExtNameに格納

set ExtName to name extension of ObjInfo as Unicode text

----ファイル名の文字数を数える

set CntFileName to (the length of characters of FileName) as integer

----拡張子の文字数を数える1足すのはカンマ分

set CntExtName to (the length of characters of ExtName) + 1 as integer

----ショートファイル名の文字数は？

set CntShotFileName to CntFileName - CntExtName as integer

----拡張子抜きのショートファイル名を抜き出します

set ShortFileName to characters 1 thru CntShotFileName of (the FileName) as Unicode text

----パスの文字数を数える

set CntFilePath to the length of characters of FilePath as integer

----パスの文字数　ー　ファイル名でディレクトリ名の文字数を計算する

set CntDirPath to CntFilePath - CntFileName as integer

----ファイルのディレクトリ名を定義する

set DirName to characters 1 thru CntDirPath of FilePath as Unicode text

tell application "Finder"

----ファイルのディレクトリにショートファイル名のフォルダを作ります。

try

make new folder at (DirName) with properties ¬

{name:ShortFileName ¬

, owner privileges:read write ¬

, group privileges:read write ¬

, everyones privileges:read write ¬

, comment:FileName ¬

, description:ShortFileName ¬

}

end try

end tell

tell application "Finder"

try

----選んだファイルを作ったフォルダの中に移動します。

move (FileAlias) to alias (DirName & ShortFileName & ":")

delete alias (DirName & ShortFileName & ":.DS_Store")

end try

end tell

「move2FileNameFolder.rtf」をダウンロード

「move2FileNameFolder.scpt.zip」をダウンロード

↑のスクリプトをドロップレットにしたもの

「move2FileNameFolder.app.zip」をダウンロード