dim iTunes dim i, cnt, totalTime, totalCount, s set iTunes = WScript.CreateObject("iTunes.Application") if Msgbox("集計を開始しますか?" & vbCrLf & "(曲が多い場合はそこそこ時間かかります)", vbYesNo) = vbNo then WScript.Quit end if cnt = iTunes.LibraryPlaylist.Tracks.Count totalTime = 0 totalCount = 0 for i = 1 to cnt totalTime = totalTime + iTunes.LibraryPlaylist.Tracks(i).PlayedCount * iTunes.LibraryPlaylist.Tracks(i).Duration totalCount = totalCount + iTunes.LibraryPlaylist.Tracks(i).PlayedCount next s = "" i = totalTime \ 86400 if i > 0 then: s = s & i & "日" totalTime = totalTime mod 86400 i = totalTime \ 3600 if i > 0 then: s = s & i & "時間" totalTime = totalTime mod 3600 i = totalTime \ 60 if i > 0 then: s = s & i & "分" i = totalTime mod 60 if i > 0 then: s = s & i & "秒" Msgbox "総再生回数: " & totalCount & vbCrLf & "総再生時間: " & s