iTunes
指定したフォルダ配下の曲を一括インポート function ImportWav($arg) { $args = $arg.fullName.split("\") # 階層構造が 一律ではない # c:\音楽\MP3\グループ分け\アーティスト名\アルバム名\ディスク番号\曲名.mp3 # c:\音楽\MP3\グループ分け\アーティス…
指定したフォルダ配下の曲を一括インポート $global:it = New-Object -ComObject iTunes.Application $global:artist_name = "" $global:album_name = "" $global:truck_name = "" $global:truck_no = 0 #指定したフォルダ配下の曲を一括インポート # \アー…
wav形式で保存済みの曲をインポートする場合 $it = New-Object -ComObject iTunes.Application $sts = $it.ConvertFile("c:\WAV\01 矢沢永吉\01 キャロル\01 ルイジアンナ\02 ヘイ・タクシー.wav") while($sts.InProgress) { Start-Sleep 1 } foreach ($trac…
PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…
PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…
既にmp3形式に変換済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.LibraryPlaylist.AddF…
Option Explicit Dim excelApp Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF Dim iTunesApp Set iTunesApp = WScript.CreateObject("iTunes.Application") 'ブックを読…
wav形式で保存済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.ConvertFile("c:\WAV\01 …
Set iTunesApp = WScript.CreateObject("iTunes.Application") For Each track In iTunesApp.LibraryPlaylist.Tracks WScript.StdOut.Write track.Artist & "," WScript.StdOut.Write track.Album & "," WScript.StdOut.Write track.tracknumber & "," WScri…