MacBSの日常生活的日記

(9/13 21:29更新)
アートワークなしのプレイリスト作成に対応したので、更新して再掲しておきます。
---

Desire for Wealthさんで、iPod nano向けに、アートワークの有無で
プレイリストを作成してくれるAppleScriptが公開されています。

私はiPod nanoは持ってませんけど、「NowTunesでもこれは便利かも!?」と
思いますし、上のAppleScriptはWindowsユーザーは恩恵に預かれませんし、
ちらっと、同様のツールを作ってみました。
http://homepage1.nifty.com/macbs/download.htm#MBTUty

うっかり、「アートワークなし」のプレイリストを作る機能を付け忘れましたけど、
まぁそれは近いうちにバージョンアップする、ということで。(^^;
(9/13 21:29追記)
Ver.1.01から、アートワークあり、と、なし、の2バージョンのプレイリストを
出力できるようになりました。

他にも要望など、ございましたら、技量の許す範囲で対応したいと思います。

ちなみに、ソースサンプルも公開しておきますので、興味がある方は改造してVBなり、
Excelマクロなりで使ってやってくださいませ。

Dim iTunesApp As iTunesApp
Dim iCount As Long
Dim iLoop As Long
Dim plist As IITUserPlaylist
Dim track As IITTrack

If TextBox1.Text = "" Then
  MsgBox("プレイリスト名を指定してください。", MsgBoxStyle.Exclamation)
  Exit Sub
End If

If MsgBox("プレイリストを作成しますか？", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.No Then
  Exit Sub
End If

iTunesApp = New iTunesApp

plist = iTunesApp.CreatePlaylistInSource(TextBox1.Text, iTunesApp.Sources.Item(1))
iCount = iTunesApp.LibraryPlaylist.Tracks.Count()

For iLoop = 1 To iCount
  track = iTunesApp.LibraryPlaylist.Tracks.Item(iLoop)
  If track.Artwork.Count() > 0 Then
    plist.AddTrack(track)
  End If
Next iLoop

iTunesApp = Nothing

MsgBox("プレイリストの作成が終了しました。", MsgBoxStyle.Information)

(当サイトでは、Amazonアソシエイトをはじめとした第三者配信のアフィリエイトプログラムにより商品をご紹介致しております。)