如何取得MP3文件的文件属性

[贝隆]

希望能取得MP3文件的：表演者、时间长度、所属专辑的信息，在下不才，还望大家不吝赐教！

[goosen]

http://faq.csdn.net/read/198509.html

[bluesky396]

[Quote=引用 1 楼 goosen 的回复:]
http://faq.csdn.net/read/198509.html
[/Quote]

mark...

[贝隆]

谢谢各位！受教！

[东方之珠]

取得ID3V1，ID3V2信息：
http://www.codefans.net/soft/4165.shtml
http://topic.csdn.net/u/20070904/13/923d90f2-3622-47f8-a08c-e834fd85938b.html

[lyserver]

可以使用以下代码获得MP3摘要:

Sub main()
    Dim i As Long
    Dim FSO As Object, objFile As Object, objApp As Object, objNSP As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = FSO.GetFile("f:\kugou\01.采红菱.mp3")
    
    Set objApp = CreateObject("Shell.Application")
    Set objNSP = objApp.NameSpace(objFile.ParentFolder.Path)
    
    For i = 0 To 40 'objNSP.items.Count - 1
        Debug.Print i, objNSP.GetDetailsOf(0, i), objNSP.GetDetailsOf(objNSP.items.Item(objFile.Name), i)
    Next i
End Sub

[zzyong00]

顶楼上

[贝隆]

谢谢江南大侠，你的代码从来都很有用。受教了！

[舉杯邀明月]

顶 lyserver !

[greatbody]

[Quote=引用 5 楼 lyserver 的回复:]
可以使用以下代码获得MP3摘要:
VB codeSub main()Dim iAsLongDim FSOAsObject, objFileAsObject, objAppAsObject, objNSPAsObjectSet FSO=CreateObject("Scripting.FileSystemObject")Set objFile= FSO.GetFile("f:\kugou\01.采红菱.mp3")Set objApp=CreateObject("Shell.Application")Set objNSP= objApp.NameSpace(objFile.ParentFolder.Path)For i=0To40'objNSP.items.Count - 1 Debug.Print i, objNSP.GetDetailsOf(0, i), objNSP.GetDetailsOf(objNSP.items.Item(objFile.Name), i)Next iEnd Sub
[/Quote]
能够加一点注释吗？谢谢