▃◣ 如何用VB获取或者修改 wmv、wma 文件的摘要属性(艺术家、标题、备注……等)

Question

▃◣ 如何用VB获取或者修改 wmv、wma 文件的摘要属性(艺术家、标题、备注……等)
偶去 google 查了一晚上也没找到啊请各位高手帮忙!

Answer 1

该属性应该是在 wmv 等媒体文件中，可以用 二进制工具
察看其偏移量。

Answer 2

wmv、wma都属于Asf文件（高级系统格式），MS有这种文件格式的说明文档：
http://www.microsoft.com/windows/windowsmedia/format/asfspec.aspx也不难，下载那个800多K的DOC文件，按它的格式说明写个过程，就可获取艺术家、标题、备注……等信息，我就写过一个，感觉ASF比MP3的信息详细多了。

Answer 3

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=199777
没有问题Option Explicit'引用Microsoft  Shell  Controls  And  Automation
Private Sub Command1_Click()
MsgBox getfilePTY("f:\music\u\七里香.wma")
End Sub
 
Function getfilePTY(strFl As String) As String
Dim fso   'As  FileSystemObject
Dim fl   'As  Scripting.File
Dim pth   As String
Dim flname   As String
 
Dim shl   As Shell32.Shell
Dim shfd   As Shell32.Folder
Dim s   As String
Dim i
 
'Set  fso  =  New  FileSystemObject
Set fso = CreateObject("scripting.filesystemobject")
Set fl = fso.GetFile(strFl)
pth = fl.ParentFolder.Path
flname = fl.Name
 
Set shl = New Shell
Set shfd = shl.NameSpace(pth)
 
For i = 0 To 33
   If shfd.GetDetailsOf(0, i) <> "" Or shfd.GetDetailsOf(shfd.Items.Item(flname), i) <> "" Then
         s = s & shfd.GetDetailsOf(0, i) & ":    " & shfd.GetDetailsOf(shfd.Items.Item(flname), i) & Chr(10)
   End If
Next i
 
getfilePTY = s
End Function

Answer 4

以上代码可以 获取 摘要但是如何修改 wmv、wma 文件的摘要属性(艺术家、标题、备注……等)??

Answer 5

//如何修改 wmv、wma 文件的摘要属性(艺术家、标题、备注……等)根据文件格式写