神马品牌网中国203炮:如何用VB修改wma标签,有人提供过代码
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 03:03:24
如何使用vb自动修改wma格式的标签(文件信息)..
读取的代码已经知道了。可是修改的代码很不好办~有人提供过。可是测试下来不成功。
首先引用mp
然后
Dim oMedia As IWMPMedia3
strfilename = "d:\1.wma"
Set oMedia = owmp.newMedia(strFileName)
With oMedia
Call .setItemInfo("author", strAuthor)
Call .setItemInfo("Description", strDescription)
Call .setItemInfo("Title", strTitle)
Call .setItemInfo("WM/Year", strYear)
Call .setItemInfo("WM/AlbumTitle", strAlbumTitle)
End With
Set oMedia = Nothing
运行后提示出错~~对象什么什么的~
运行后提示程序出错，没有对象。。。
我想顺便问下。如何使用vb修改wma标签以及版权信息(版权信息是只读的)
读取的代码已经知道了。可是修改的代码很不好办~有人提供过。可是测试下来不成功。
首先引用mp
然后
Dim oMedia As IWMPMedia3
strfilename = "d:\1.wma"
Set oMedia = owmp.newMedia(strFileName)
With oMedia
Call .setItemInfo("author", strAuthor)
Call .setItemInfo("Description", strDescription)
Call .setItemInfo("Title", strTitle)
Call .setItemInfo("WM/Year", strYear)
Call .setItemInfo("WM/AlbumTitle", strAlbumTitle)
End With
Set oMedia = Nothing
运行后提示出错~~对象什么什么的~
运行后提示程序出错，没有对象。。。
我想顺便问下。如何使用vb修改wma标签以及版权信息(版权信息是只读的)
代码应该没问题的，你把详细错误信息写出来，这样好帮你解决。
没有对象？？？没可能吧！可也是在"Set oMedia = owmp.newMedia(strFileName) "里出错了。
只要你知道文件里面的数据结构，就可以用知道了。