再生回数変更スクリプト
iTunesで再生回数を変更したい曲を選択して、下記のスクリプトを実行させると、再生回数の変更ができる。
- 15行目の「新しい再生回数の設定」に変更したい再生回数を半角で記入する
- テキストエディタなどにコピペ
- 拡張子をtxtからvbsに変更して、countedit.vbsとでも名前をつけて保存
- あとはダブルクリックして実行
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
