この記事について
| 環境 | Windows7、VBScript |
|---|---|
| 目的 | mp3ファイルの再生時間を取得する |
| 結果 | Shell.ApplicationのGetDetailsOf(itm, 27)で「長さ」を取得できる |
つまずきポイント要約
- 27はWindows7の「長さ」の番号。XPの場合は21
windows7でmp3ファイルの再生時間を取得するためのメモ
//このスクリプトをvbsファイルとして保存
'Explicit（エクスプリシット）はっきりと述べられた、明白な、の意。
'変数の宣言を強制する
Option Explicit
Dim itm
With CreateObject("Shell.Application").Namespace("C:\Users\Public\Music\Sample Music")
For Each itm In .Items
'InStr は文字列の中に指定の言葉があるか
'LCase は小文字に変換
If InStr(LCase(itm.Type), "mp3") Then
WScript.Echo itm.Name & " , 長さ：" & .GetDetailsOf(itm, 27)
'XPの場合は21
End If
Next
End Withちなみに他の主な項目は次のとおり。
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)