'读取MP3文件的标题
Public readmp3title(filename As String) As String
    Dim cells(127) As Byte
    Dim head(29) As Byte
    Dim i As Integer
    Dim j As Integer
    Dim filenum As Integer
    filenum = FreeFile
    Open filename For Binary As filenum
    Get filenum, LOF(filenum) - 128 + 1, cells
    j = 0
    For i = 3 To 32
        head(j) = cells(i)
        j = j + 1
    Next
    readmp3title = StrConv(head, vbUnicode)
End

'读取MP3文件的艺术家名称
Public readmp3person(filename As String) As String
    Dim cells(127) As Byte
    Dim head(29) As Byte
    Dim i As Integer
    Dim j As Integer
    Dim filenum As Integer
    filenum = FreeFile
    Open filename For Binary As filenum
    Get filenum, LOF(filenum) - 128 + 1, cells
    j = 0
    For i = 33 To 62
        head(j) = cells(i)
        j = j + 1
    Next
    readmp3person = StrConv(head, vbUnicode)
End

'读取MP3文件的唱片标题
Public readmp3name(filename As String) As String
    Dim cells(127) As Byte
    Dim head(29) As Byte
    Dim i As Integer
    Dim j As Integer
    Dim filenum As Integer
    filenum = FreeFile
    Open filename For Binary As filenum
    Get filenum, LOF(filenum) - 128 + 1, cells
    j = 0
    For i = 63 To 92
        head(j) = cells(i)
        j = j + 1
    Next
    readmp3name = StrConv(head, vbUnicode)
End

'读取MP3文件的发行年份
Public readmp3year(filename As String) As String
    Dim cells(127) As Byte
    Dim head(4) As Byte
    Dim i As Integer
    Dim j As Integer
    Dim filenum As Integer
    filenum = FreeFile
    Open filename For Binary As filenum
    Get filenum, LOF(filenum) - 128 + 1, cells
    j = 0
    For i = 93 To 96
        head(j) = cells(i)
        j = j + 1
    Next
    readmp3year = StrConv(head, vbUnicode)
End

'读取MP3文件的备注信息
Public readmp3add(filename As String) As String
    Dim cells(127) As Byte
    Dim head(25) As Byte
    Dim i As Integer
    Dim j As Integer
    Dim filenum As Integer
    filenum = FreeFile
    Open filename For Binary As filenum
    Get filenum, LOF(filenum) - 128 + 1, cells
    j = 0
    For i = 97 To 122
        head(j) = cells(i)
        j = j + 1
    Next
    readmp3add = StrConv(head, vbUnicode)
End

 '在文件指定位置填充指定量字节
Public addbytes(filename As String, pos As Long, str As String, num As Integer)
   Dim cells() As Byte
   Dim temp() As Byte
   Dim i As Integer
   Dim fil