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

>>355
MBTunesUtyと同じような動作をするスクリプトでいいのかな？

----------------------------------------------------------
Windowsのvbs版での、Artwork有りの曲を抽出するプログラム。
動かし方は、下のリストをメモ帳にコピーして、デスクトップに
searchartwork.vbsとでもセーブしておき、vbsファイルを起動すると、
Artwork有りという名前でプレイリストを作って、そこにArtworkの有る
曲を抽出する。なお、同じ名前のプレイリストがあると、それを消して
作り直す。

on error Resume Next
set iTunesApp = WScript.CreateObject("iTunes.Application")
pListName = "ArtWork有り"
set pList = iTunesApp.LibrarySource.PlayLists.ItemByName(pListName)
if pList.Count <> 0 then
plist.Delete()
end if

set pList = iTunesApp.CreatePlayList(pListName)

for each Track in iTunesApp.LibraryPlayList.Tracks
if Track.Artwork.Count <> 0 then
pList.AddTrack(Track)
end if
next

WScript.Echo "Job complete."

---------------------------------------------------------------
解説しておくと、
if Track.Artwork.Count <> 0 then
がこのプログラムのキモ。ここを例えば
if Track.ExcludeFromShuffle <>0 then
ってやれば、スキップシャッフルの曲だけ抽出になる。
抽出先は3行目のplist=""の""の中を書き換えればいい。