山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

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

楼主zzlcn（）2005-02-21 20:38:14 在 VB / 基础类提问

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

偶去 google 查了一晚上也没找到啊

请各位高手帮忙! 问题点数：100、回复次数：12Top

1 楼homezj（小吉）回复于 2005-02-21 20:50:12 得分 20

wmv、wma都属于Asf文件（高级系统格式），MS有这种文件格式的说明文档：
http://www.microsoft.com/windows/windowsmedia/format/asfspec.aspx

也不难，下载那个800多K的DOC文件，按它的格式说明写个过程，就可获取艺术家、标题、备注……等信息，我就写过一个，感觉ASF比MP3的信息详细多了。Top

2 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2005-02-21 21:11:15 得分 30

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

Top

3 楼cobrastudio（老汉我）回复于 2005-02-22 08:50:54 得分 5

楼上都解了，偶就友情蹭分。Top

4 楼tccth4091（半个岛）回复于 2005-02-22 10:28:21 得分 5

运行到Dim shl As Shell32.Shell时提示类型未定义Top

5 楼zzlcn（）回复于 2005-02-22 10:53:10 得分 0

以上代码可以获取摘要

但是

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

??Top

6 楼smalltownboy（天秤猴）回复于 2005-02-22 11:07:28 得分 5

引用Microsoft Shell Controls And AutomationTop

7 楼homezj（小吉）回复于 2005-02-22 11:25:52 得分 0

这是利用系统功能获取文件信息，也就是资源管理器中详细信息方式或文件属性中所能看到的内容。依赖于不同的系统而不同。XP的确不错，应有尽有，9X可能会让人大大地失望了，只有文件时间等几项。

前面我说过，要想获取及修改这些信息，最好是自己读写。
只要知道文件格式，就可以了。MS文档中说得很详细。
Top

8 楼junki（『.NET技术争霸天下』）回复于 2005-02-22 12:56:13 得分 10

可以先试一试,有写地方楼主应该修改一下
Top

9 楼starsoulxp（星魂）回复于 2005-02-22 13:15:57 得分 5

关注Top

10 楼Dickson（沧海冷心）回复于 2005-02-22 13:35:07 得分 10

http://www.microsoft.com/windows/windowsmedia/format/asfspec.aspxTop

11 楼dongge2000（目前叫西西了）回复于 2005-02-22 15:35:01 得分 5

呵呵，沾分！Top

12 楼shiyunlong（君子爱财-取之用刀）回复于 2005-02-22 15:54:25 得分 5

markTop