(VBA)指定したMP3の曲の再生時間を書き出す

質問

MP3の「曲の長さ」を調べて指定セルに書き出すコードを
　以前教えてもらいましたが、
　複数のＭＰ３をターゲットにした場合を
　配列を利用してセルに書き出しました。

今回は、単一のＭＰ３の場合の
　指定セルへの書き出しを教えて下さい。

以前、以下の記事を参考にしました。

http://officetanaka.net/other/extra/tips16.htm

Dim TargetFolder as Varint
Dim TargetMP3 as string

以上の要素は他のコードで既に取得済みです。

TargetFolder
例えば、C:\Temp\N1\
TargetMP3
例えば、C:\Temp\N1\N2.mp3

TargetMP3のＭＰ３のファイル再生時間を
　指定セル（Cells(20,"A")）に書き出す場合でコードを教えて下さい。

最終的には、以下に近い形式になると思いますが
　以前は、配列で処理されているので単独の場合が分かりません。

Cells(20, "A") = Folder.GetDetailsOf(Folder.ParseName(Target), 27)

回答No.2

kkkkkm · ベストアンサー

Target = FSO.GetFile(TargetMP3).Name
の前に
Set Folder = SHell.Namespace(FSO.GetFile(TargetMP3).ParentFolder.Path)
も変更がコピペ抜けでした。

お礼

kkkkkmさん、回答ありがとうございます。

おかげさまで下記コード上手く処理できました。
（各DIMは、別途記入済みです。）

これで以前からセルに手動で入力していたMP3の曲の長さ（再生時間）を
　自動で入力出来そうです。
----------------------------------------------
'Sub Mp3サイズ読み込み()

TargetMP3 = Application.GetOpenFilename("MP3ファイル,*.mp3")
MsgBox TargetMP3

Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHell = CreateObject("Shell.Application")

Set Folder = SHell.Namespace(FSO.GetFile(TargetMP3).ParentFolder.Path)

Target = FSO.GetFile(TargetMP3).Name
Cells(20, "A") = Folder.GetDetailsOf(Folder.ParseName(Target), 27)

Set Folder = Nothing
Set SHell = Nothing
Set FSO = Nothing

End Sub

回答No.1

kkkkkm

参考にされたサイトのループを外して
該当部分だけですが
Dim TargetMP3 As String

TargetMP3 = "C:\Temp\N1\N2.mp3"
Target = FSO.GetFile(TargetMP3).Name
Cells(1, 1) = Folder.GetDetailsOf(Folder.ParseName(Target), 0)
Cells(1, 2) = Folder.GetDetailsOf(Folder.ParseName(Target), 27)