Macで写真の日付ごとにフォルダ分けしたい場合

-- 写真が保存されているフォルダを選択する
set sourceFolder to choose folder with prompt "写真が保存されているフォルダを選択してください:"

-- 写真を分類する
tell application "Finder"
    set theFiles to every file of sourceFolder
    repeat with thisFile in theFiles
        set fileCreationDate to creation date of thisFile
        set yearFolderName to year of fileCreationDate as string
        set monthFolderName to my zeroPad(month of fileCreationDate as number)
        set dayFolderName to my zeroPad(day of fileCreationDate as number)
        
        -- 年フォルダのチェックと作成
        if not (exists folder yearFolderName of sourceFolder) then
            make new folder at sourceFolder with properties {name:yearFolderName}
        end if
        set yearFolder to folder yearFolderName of sourceFolder
        
        -- 月フォルダのチェックと作成
        if not (exists folder monthFolderName of yearFolder) then
            make new folder at yearFolder with properties {name:monthFolderName}
        end if
        set monthFolder to folder monthFolderName of yearFolder
        
        -- 日フォルダのチェックと作成
        if not (exists folder dayFolderName of monthFolder) then
            make new folder at monthFolder with properties {name:dayFolderName}
        end if
        set dayFolder to folder dayFolderName of monthFolder
        
        -- ファイルを適切なフォルダへ移動
        move thisFile to dayFolder
    end repeat
end tell

-- 数字が一桁の場合にゼロパディングする補助関数
to zeroPad(n)
    if n < 10 then
        return "0" & n
    else
        return n as string
    end if
end zeroPad

-- 写真が保存されているフォルダを選択する
set sourceFolder to choose folder with prompt "写真が保存されているフォルダを選択してください:"

-- 写真を分類する
tell application "Finder"
    set theFiles to every file of sourceFolder
    repeat with thisFile in theFiles
        set fileCreationDate to creation date of thisFile
        set yearFolderName to year of fileCreationDate as text
        set monthFolderName to my zeroPad(month of fileCreationDate as number)
        set dayFolderName to my zeroPad(day of fileCreationDate as number)
        set yearMonthFolderName to yearFolderName & monthFolderName
        set yearMonthDayFolderName to yearMonthFolderName & dayFolderName
        
        -- 年フォルダのチェックと作成
        if not (exists folder yearFolderName of sourceFolder) then
            make new folder at sourceFolder with properties {name:yearFolderName}
        end if
        set yearFolder to folder yearFolderName of sourceFolder
        
        -- 年月フォルダのチェックと作成
        if not (exists folder yearMonthFolderName of yearFolder) then
            make new folder at yearFolder with properties {name:yearMonthFolderName}
        end if
        set yearMonthFolder to folder yearMonthFolderName of yearFolder
        
        -- 年月日フォルダのチェックと作成
        if not (exists folder yearMonthDayFolderName of yearMonthFolder) then
            make new folder at yearMonthFolder with properties {name:yearMonthDayFolderName}
        end if
        set yearMonthDayFolder to folder yearMonthDayFolderName of yearMonthFolder
        
        -- ファイルを適切なフォルダへ移動
        move thisFile to yearMonthDayFolder
    end repeat
end tell

-- 数字が一桁の場合にゼロパディングする補助関数
to zeroPad(n)
    if n < 10 then
        return "0" & n
    else
        return n as text
    end if
end zeroPad

-- ExifToolのパス
set exifToolPath to "/usr/local/bin/exiftool"

-- 写真が保存されているフォルダを選択する
set sourceFolder to choose folder with prompt "写真が保存されているフォルダを選択してください:"

tell application "Finder"
    set theFiles to every file of sourceFolder whose name extension is in {"jpg", "jpeg", "tif", "tiff", "png", "heic"}
    repeat with thisFile in theFiles
        set filePath to POSIX path of (thisFile as alias)
        set fileDate to do shell script exifToolPath & " -DateTimeOriginal -d \"%Y:%m:%d %H:%M:%S\" -S -s -s " & quoted form of filePath
        if fileDate is not "" then
            set text item delimiters to {":"}
            set dateParts to text items of fileDate
            set yearFolderName to item 1 of dateParts
            set monthFolderName to item 2 of dateParts
            set dayFolderName to item 3 of dateParts
            set yearMonthFolderName to yearFolderName & monthFolderName
            set yearMonthDayFolderName to yearFolderName & monthFolderName & dayFolderName
            
            -- 年フォルダのチェックと作成
            if not (exists folder yearFolderName of sourceFolder) then
                make new folder at sourceFolder with properties {name:yearFolderName}
            end if
            set yearFolder to folder yearFolderName of sourceFolder
            
            -- 年月フォルダのチェックと作成
            if not (exists folder yearMonthFolderName of yearFolder) then
                make new folder at yearFolder with properties {name:yearMonthFolderName}
            end if
            set yearMonthFolder to folder yearMonthFolderName of yearFolder
            
            -- 年月日フォルダのチェックと作成
            if not (exists folder yearMonthDayFolderName of yearMonthFolder) then
                make new folder at yearMonthFolder with properties {name:yearMonthDayFolderName}
            end if
            set yearMonthDayFolder to folder yearMonthDayFolderName of yearMonthFolder
            
            -- ファイルを適切なフォルダへ移動
            move thisFile to yearMonthDayFolder
        end if
    end repeat
end tell

brew install exiftool

/bin/bash -c "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/HEAD/install.sh)"