MBTunesUty 1.01

19年前

(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)