iTunes for Windows Part50 - 暇つぶし2ch

iTunes for Windows Part50 at WIN

731:名無し~3.EXE
06/11/28 02:10:45 lG0me8Jc
>>699
色々なところ手抜きまくった。まともに動かんでも知らん。
「C:\\Artwork\\」のところを好きなフォルダに書き換えれ

variTunesApp = WScript.CreateObject("iTunes.Application");
vartracks = iTunesApp.LibraryPlaylist.Tracks;
varnum = tracks.Count;
var albumArray = new Array();

while (num) {
vartrack = tracks.Item(num);
var album = track.Album;

if (albumArray[album] == undefined) {
albumArray[album] = true;
if (track.Artwork.Count > 0) {
track.Artwork.Item(1).SaveArtworkToFile("C:\\Artwork\\" + num + ".jpg");
}
}
--num;
}

WScript.Echo("");

次ページ

続きを表示

1を表示