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

Question

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

Answer 1

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

Answer 2

可以使用以下代码获得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