VBScript で iTunes にインポートする
PlayList を新規追加して、インポートする場合
Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Playlists.ItemByName("新しいプレイリスト") If Not (playList Is Nothing) Then If playList.Tracks.Count <> 0 Then playList.Delete() End If End If Set playList = iTunesApp.CreatePlayList("新しいプレイリスト") Set sts = playList.AddFile("c:\MP3\01 矢沢永吉\01 キャロル\01 ルイジアンナ\02 ヘイ・タクシー.mp3") Do While (sts.InProgress) WScript.Sleep 1000 Loop For Each track In sts.Tracks track.Artist = "キャロル" track.Album = "ルイジアンナ" track.TrackNumber = "2" track.Name = "02 ヘイ・タクシー" track.Composer = "ジョニー大倉 & 矢沢永吉" Next Set sts = Nothing For Each track In playList.Tracks WScript.StdOut.Write track.Artist & "," WScript.StdOut.Write track.Album & "," WScript.StdOut.Write track.TrackNumber & "," WScript.StdOut.Write track.Name & "," WScript.StdOut.Write track.Duration & "," WScript.StdOut.Write track.Composer & "," WScript.StdOut.Write track.BitRate WScript.StdOut.WriteLine Next iTunesApp.Quit Set iTunesApp = Nothing WScript.StdOut.WriteLine "登録終了"
実行結果
C:\>cscript //nologo itunes4.vbs 登録開始... MP3 Encoder 登録終了 キャロル,ルイジアンナ,2,02 ヘイ・タクシー,141,ジョニー大倉 & 矢沢永吉,192