怎样读取和改写媒体文件信息？

每种文件标记的方法和位置不一样!
例如mp3,采用文件的最后的1024个字节存放文件的信息!
wma的又是别外一种方法!
有的商业软件会对各种格式分别做处理!如Winmap等

没有具体格式还真不好说!

装个千千静听，或者其它经过优化的播放器。
别用那些根本没有优化过的播放软件垃圾版本。

Public Type Mp3tag
Artist As String ’Artist 存储歌手信息
Album As String ’Album 存储唱片专辑信息
Title As String ’Title 存储标题信息
Year As String ’Year 存储年代信息
Comments As String ’Comments 存储备注信息
Genre As Integer ’Genre 存储音乐风格序列
End Type

然后，定义一个获取MP3信息的函数，它将返回这些信息，代码如下：

Public Function GetMp3Tag(FName As String) As Mp3tag
Dim Artist As String
Dim Album As String
Dim Title As String
Dim Year As String
Dim Comments As String
Dim Genre As Integer

If FName = "" Then Exit Function

If Dir(FName) = "" Then Exit Function

Dim FileNum As Integer

FileNum = FreeFile ’得到一个自由的文件号

Dim strInput As String

Open FName For Binary Access Read As Fi