[AppleScript]ファイル名のリネーム シンプル版

アップルスクリプトでファイル名をリネームします。
シェルも使わずシンプルにしました。

シェルを使った版はこちら[LINK]
スクリプトで文字の置き換えする版はこちら[LINK]

■まずは
　１：選択したファイルの『パス』
　２：選択したファイルの『ファイル名』
を取得して
　３：入力した『新しいファイル名』
を
それぞれ
定義します。

↓クリックして拡大してみてください

■ディレクトリまでのパスを取得します。

　１：フルパスの文字数をカウント
　２；ファイル名の文字数をカウント
　３：引算でディレクトリまでの文字数を取得
　４：パスから文字数分を抜き出して
　　　ディレクトリまでのパスを取得します。

↓クリックして拡大してみてください

■ファイル名を変更します。

新しいファイル名をSetするだけです

↓クリックして拡大してみてください

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

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

----変更後のファイル名を指定

display dialog "ファイル名を入力" default answer "新しいファイル名"

----変更後のファイル名をNewNameに格納

set NewName to text returned of the result as Unicode text

----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

----新しいファイル名をNewFileNameに格納

set NewFileName to NewName & "." & ExtName as Unicode text

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

set CntFileName to the length of characters of FileName

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

set CntFilePath to the length of characters of FilePath

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

set CntDirPath to CntFilePath - CntFileName

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

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

----ファイル名を変更する

tell application "Finder"

set name of file FileName of folder DirName to NewFileName

end tell

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

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