[Music]現在再生中の曲をプレイリストに追加する

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

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

#

#

#

# com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

##############################

#####スクリプトメニューから実行させない

##############################

tell current application

  set strName to name as text

end tell

####スクリプトメニューから実行したら

if strName is "osascript" then

  tell application "Finder"

    set aliasPathToMe to path to me as alias

    tell application "Script Editor"

open aliasPathToMe

    end tell

return "中止しました"

  end tell

else

  tell current application

    activate

  end tell

end if

############################

### プレイリストを取得

############################

set listSetPlayListName to {} as list

tell application "Music"

  set listSetPlayListName to name of every playlist as list

end tell

###ダイアログ

try

  set listResponse to (choose from list listSetPlayListName with title "選んでね" with prompt "プレイリストに追加します" default items (item 1 of listSetPlayListName) OK button name "OK" cancel button name "キャンセル" without multiple selections allowed and empty selection allowed) as list

on error

  log "エラーしました"

return "エラーしました"

end try

if (item 1 of listResponse) is false then

return "キャンセルしました"

end if

set strPlayListName to (item 1 of listResponse) as text

###追加する

tell application "Music"

  set objCurrentTrack to current track

  duplicate objCurrentTrack to playlist strPlayListName

end tell