MP3の情報を取得するVBScript

※ 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
広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中


%d人のブロガーが「いいね」をつけました。