iTunes の再生回数を設定！

　CD シングルを購入したりレンタルしたりして、iPod nano で持ち歩いていますが、数ヶ月後にはアルバムに収録されます。
　同じ曲の場合、私はアルバムの方をプレイリストに採用 (入れ替え) するんですが、そうすると再生回数が 0 に戻ってしまいます。
　どうにかならないかなぁと調べてみたら、「iTunes for Windows まとめ」という Wiki サイトに再生回数を設定する VB スクリプトが紹介されていました。これは便利ですね〜。

Dim iTunesApp
Dim Tracks, numTracks
Dim i, k
Dim current

set iTunesApp = WScript.CreateObject("iTunes.Application")
set Tracks = iTunesApp.SelectedTracks
numTracks = Tracks.Count
Cnt

Sub Cnt
for i = 1 to numTracks
set current = Tracks.Item(i)
k = current.PlayedCount
k = InputBox(current.Name, "新しい再生回数の設定", k)
if k="" then Exit Sub
current.PlayedCount = k
next
End Sub