Finderで最前面のウィンドウの名前でファイル名を作成日時順に連番でつけるAppleScript

Finderで最前面のウィンドウの名前でファイル名を作成日時順に連番でつけるAppleScript。

自炊したPDFをとりあえずリネームさせる用に書いた。

tell application "Finder"
    set targetWindow to front window
    set baseName to name of targetWindow
    set targetFiles to files in targetWindow
    set targetFiles to sort targetFiles by creation date
    
    set i to 1
    repeat with targetFile in targetFiles
        set currentExtension to name extension of targetFile
        set newName to baseName & "-" & i & "." & currentExtension
        try
            set name of targetFile to newName
        on error errStr number errorNumber
            display dialog errStr
        end try
        set i to i + 1
    end repeat
    
end tell

参照ページ：

1. Applescript -ドロップされたファイルのソート- - ちくちく日記

2. 指定ファイルの拡張子を取得する – AppleScriptの穴