【iPod】おまいらのスマートプレイリスト３

>>564
うちで今使っているスクリプトだとこんな感じ。但し、テレビ番組になる。
ミュージックビデオにするなら、ソースのVideoKind=3を2にすれば良かったと思う。

-----------------------------------------------------
Windowsのvbs版での、選択した曲をテレビ番組に一括変換するプログラム。
動かし方は、下のリストをメモ帳にコピーして、デスクトップにchgtv.vbsとでも
セーブしておき、iTunesで曲を選択してから、vbsファイルを起動する。

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

if numTracks = 0 then
WScript.Echo"選択ファイルがありません。終了します"
else
set current = Tracks.Item(1)
if current.VideoKind = 1 then
inString = InputBox("テレビ番組名")
inSeason = InputBox("シーズン番号")
if inSeason = "" then
SeasonNum = 0
else
SeasonNum = CInt(inSeason)
end if
for i = 1 to numTracks
set current = Tracks.Item(numTracks - i + 1)
current.SeasonNumber = SeasonNum
current.Show = inString
current.VideoKind = 3
next
WScript.Echo "テレビ番組に変換しました"
else
for i = 1 to numTracks
set current = Tracks.Item(numTracks - i + 1)
current.Show = ""
current.VideoKind = 1
next
WScript.Echo "ムービーに復帰しました"
end if
end if