フォルダーのリネーム（エラーにならないようにする）

---

【スクリプトエディタで開く】| クリップボードへコピー

###デスクトップに

tell application "Finder"

  set aliasDesktopDirPath to (path to desktop folder from user domain) as alias

end tell

#####フォルダ名『NewNameA』がなければ作る

tell application "Finder"

  ##有無を確認して

  set boolExists to exists of (folder "NewNameA" of folder aliasDesktopDirPath)

  if boolExists is false then

    ###なければ作る

make new folder at aliasDesktopDirPath with properties {name:"NewNameA"}

  end if

  set aliasNewFolderAPath to (folder "NewNameA" of folder aliasDesktopDirPath) as alias

end tell

#####フォルダ名『NewNameB』がなければ『NewNameA』を『NewNameB』に名前を変える

tell application "Finder"

  ##有無を確認して

  set boolExists to exists of (folder "NewNameB" of folder aliasDesktopDirPath)

  tell folder aliasNewFolderAPath

    if boolExists is false then

      ###なければフォルダ名を変更する

      set name to "NewNameB"

    end if

  end tell

end tell

---