ONLY DO WHAT ONLY YOU CAN DO

こけたら立ちなはれ 立ったら歩きなはれ

iTunes

PowerShell で iTunes にインポートする

指定したフォルダ配下の曲を一括インポート function ImportWav($arg) { $args = $arg.fullName.split("\") # 階層構造が 一律ではない # c:\音楽\MP3\グループ分け\アーティスト名\アルバム名\ディスク番号\曲名.mp3 # c:\音楽\MP3\グループ分け\アーティス…

PowerShell で iTunes にインポートする

指定したフォルダ配下の曲を一括インポート $global:it = New-Object -ComObject iTunes.Application $global:artist_name = "" $global:album_name = "" $global:truck_name = "" $global:truck_no = 0 #指定したフォルダ配下の曲を一括インポート # \アー…

PowerShell で iTunes にインポートする

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…

VBScript で iTunes にインポートする

PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…

VBScript で iTunes にインポートする

PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…

VBScript で iTunes にインポートする

既にmp3形式に変換済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.LibraryPlaylist.AddF…

VBScript で iTunes にインポートする

Option Explicit Dim excelApp Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF Dim iTunesApp Set iTunesApp = WScript.CreateObject("iTunes.Application") 'ブックを読…

VBScript で iTunes にインポートする

wav形式で保存済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.ConvertFile("c:\WAV\01 …

VBScript で iTunes のライブラリに登録されている曲の一覧を取得する

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…