※ Windows 7にて実行。
※ MP3ファイルからタイトルやアーティスト名などを取得するには?[C#、VB] 参照
Option Explicit Dim itm With CreateObject("Shell.Application").Namespace("C:\Users\Public\Music\Sample Music") For Each itm In .Items If InStr(LCase(itm.Type), "mp3") Then WScript.Echo itm.Name & " , ファイルサイズ:" & .GetDetailsOf(itm, 1) WScript.Echo itm.Name & " , ファイルの種類:" & .GetDetailsOf(itm, 2) WScript.Echo itm.Name & " , 更新日時:" & .GetDetailsOf(itm, 3) WScript.Echo itm.Name & " , 作成日時:" & .GetDetailsOf(itm, 4) WScript.Echo itm.Name & " , アクセス日時:" & .GetDetailsOf(itm, 5) WScript.Echo itm.Name & " , 属性:" & .GetDetailsOf(itm, 6) WScript.Echo itm.Name & " , 所有者:" & .GetDetailsOf(itm, 10) WScript.Echo itm.Name & " , 参加アーティスト:" & .GetDetailsOf(itm, 13) WScript.Echo itm.Name & " , アルバム:" & .GetDetailsOf(itm, 14) WScript.Echo itm.Name & " , 年:" & .GetDetailsOf(itm, 15) WScript.Echo itm.Name & " , ジャンル:" & .GetDetailsOf(itm, 16) WScript.Echo itm.Name & " , 指揮者:" & .GetDetailsOf(itm, 17) WScript.Echo itm.Name & " , 評価:" & .GetDetailsOf(itm, 19) WScript.Echo itm.Name & " , 参加アーティスト:" & .GetDetailsOf(itm, 20) WScript.Echo itm.Name & " , タイトル:" & .GetDetailsOf(itm, 21) WScript.Echo itm.Name & " , コメント:" & .GetDetailsOf(itm, 24) WScript.Echo itm.Name & " , トラック番号:" & .GetDetailsOf(itm, 26) WScript.Echo itm.Name & " , 長さ:" & .GetDetailsOf(itm, 27) WScript.Echo itm.Name & " , ビット レート:" & .GetDetailsOf(itm, 28) WScript.Echo itm.Name & " , コンピューター:" & .GetDetailsOf(itm, 53) WScript.Echo itm.Name & " , 名前:" & .GetDetailsOf(itm, 155) WScript.Echo itm.Name & " , フォルダーのパス:" & .GetDetailsOf(itm, 177) WScript.Echo itm.Name & " , 項目の種類:" & .GetDetailsOf(itm, 182) WScript.Echo itm.Name & " , エンコード方式:" & .GetDetailsOf(itm, 193) WScript.Echo itm.Name & " , 発行元:" & .GetDetailsOf(itm, 195) WScript.Echo itm.Name & " , サブタイトル:" & .GetDetailsOf(itm, 196) WScript.Echo itm.Name & " , アルバムのアーティスト:" & .GetDetailsOf(itm, 217) WScript.Echo itm.Name & " , ビート数/分:" & .GetDetailsOf(itm, 219) WScript.Echo itm.Name & " , 作曲者:" & .GetDetailsOf(itm, 220) WScript.Echo itm.Name & " , イニシャル キー:" & .GetDetailsOf(itm, 221) WScript.Echo itm.Name & " , コンパイルの一部:" & .GetDetailsOf(itm, 222) WScript.Echo itm.Name & " , 雰囲気:" & .GetDetailsOf(itm, 223) WScript.Echo itm.Name & " , セットのパート:" & .GetDetailsOf(itm, 224) WScript.Echo itm.Name & " , サブタイトル:" & .GetDetailsOf(itm, 254) WScript.Echo itm.Name & " , 共有ユーザー:" & .GetDetailsOf(itm, 268) End If Next End With
コメントを残す