WALKMAN: [FORCE]

WALKMAN

ipodの調子が悪く
検討を重ねた結果
ipodをヤメてWALKMANにしてみた
実質税込み9000円の価格に負けた…笑

使い始めて２週間程ですが
ファイルの転送ソフト
Content Transferの使い勝手ってが悪く
itunesから転送中にエラーになる（転送が終わらない）現象が頻発してしまう

Finderでコピーするのもアリですが
そうするとiTunesのライブラリとの連携やら意味が無くなるし
で
考えたのが

WALKMAN

スクリプトで
iTuneのライブラリで曲を選択
↓
スクリプト実行
↓
WALKMANフォルダに選択中の曲をコピー
↓
ひと通りコピーが終わったら
↓
Content Transferで転送

---20150530追記
エラー制御を変更した版に変更しました

https://github.com/force4u/DuplicateFile4iTunes/blob/master/DuplicateFile4iTunes.scpt

スクリプトは

(*
DuplicateFile4iTunes ver.1
iTunesで選択中のファイルを
指定したフォルダーにコピー（複製）します。

MacでSonyのWALKMAN等を利用する時に
転送（Content Transfer）を利用する場合に
利用出来ます。
*)

---WALKMAN転送用のファイルコピー先フォルダ名（ここは任意設定項目）
set theDirName to "WALKMAN" as text


---プロンプトの文言改行が使えます\nを入れます
set theWithPrompt to "ファイルの書出し先(Content Transfer指定先)を\n指定してください" as text
---ミュージックフォルダへのパスを取得する
set theSaveDir to path to music folder from user domain

---UNIXパス形式にする
set theDirName to (POSIX path of ((theSaveDir & theDirName & ":") as text))
---保存先をalias形式に変更する
set theDirName to POSIX file theDirName as alias
---Finderを呼び出す
tell application "Finder"
---ダイアログを出して選択されたフォルダをコピー先とする
set aliasExpFolder to (choose folder default location theDirName ¬
with prompt theWithPrompt ¬
invisibles true ¬
with multiple selections allowed without showing package contents) as alias
---ファインダーの終わり
end tell
---iTunesを呼び出す
tell application "iTunes"
try
----選択されているファイルの実体先をリストで取得
set listSelection to location of selection as list
on error
---選択していないとエラーになる
end try
---iTunesの終わり
end tell
---取得したリストのファイル数
set numSelectionFile to (count of listSelection) as number
---処理回数カウンターリセット
set numCntRep to 0 as number
---リピートのはじまり
repeat numSelectionFile times
---カウントアップ
set numCntRep to numCntRep + 1 as number
try
---１つづ処理する
set aliasFile to (item numCntRep of listSelection) as alias
on error
---選択していないとエラーになる
end try

---ファインダーを呼び出す
tell application "Finder"
try
---ファイルを複製する
duplicate aliasFile to theDirName
on error
---すでに同名がある場合はエラーになる
end try
---ファインダーの終わり
end tell
---リピートの終わり
end repeat


---Finderを呼び出す
tell application "Finder"
---コピー先を開く
open aliasExpFolder
---ファインダーの終わり
end tell


----Content Transferが起動中か調べる
tell application "System Events"
set theNameOfApp to "Content Transfer"
set theNameOfProcesses to name of my application theNameOfApp
set aliasApp to file of (application processes where name is theNameOfProcesses)
end tell

----Content Transferを起動する
if aliasApp is {} then

---Content-Transferの参照先を変更する
do shell script "defaults write SONY.Content-Transfer NSNavLastCurrentDirectory -string \"" & theDirName & "\""
---起動してからフォルダ確認用に開く
tell application "Finder"
---"Content Transfer"を開く
open name of my application "Content Transfer"
end tell

end if