Получаем информацию об MP3 файле

Option Explicit 'îáúÿâëåíèå ïåðåìåííûõ
Dim sStr As String * 128 ' ñòðîêà â êîòîðóþ çàïèøåì òåã
Dim HasTag As Boolean ' ôëàã íàëè÷èÿ èëè îòñóòñòâèÿ òåãà
Private varFileName As String ' èìÿ ôàéëà
Private Type ID3 ' îáúÿâëåíèå ïîëüçîâàòåëüñêîãî òèïà , îïèñûâàþùåãî òåã
            sTitle As String * 30 ' íàçâàíèå ïåñíè
            sArtist As String * 30 ' èñïîëíèòåëü
            sAlbum As String * 30 ' àëüáîì
            sYear As String * 4 ' ãîä
            sComment As String * 28 ' êîììåíòàðèé
            sTrack(1) As Byte ' íîìåð òðåêà
            sGenre As Byte ' æàíð
End Type
Dim info As ID3
 
 
Private Function Read() ' ôóíêöèÿ ñ÷èòûâàþùàÿ òåã
Dim nFile As Integer ' íîìåð ôàéëà
Dim Tag As String * 3
   On Error Resume Next ' íå îñòàíàâëèâàòü ïðîãðàììó ïðè îøèáêå
     nFile = FreeFile ' ïîëó÷àåì íîìåð ñâîáîäíîãî ôàéëà
     Open varFileName For Binary As nFile ' îòêðûâàåì ôàéë varFileName äëÿ ïîáàéòîâîãî äîñòóïà ïîä íîìåðîì nFile
       Get nFile, LOF(nFile) - 127, sStr ' çàïèñûâàåì 127 ïîñëåäíèõ ñèìâîëîâ ôàéëà â ïåðåìåííóþ sStr
    Close nFile ' çàêðûâàåì ôàéë
Tag = Mid(sStr, 1, 3) ' èùåì ìåòêó òåãà ID3v1
If Tag = "TAG" Then ' åñëè ìåòêà åñòü
    HasTag = True ' ïðèñâàèâàåì ôëàãó Èñòèíà
Else
    HasTag = False ' åñëè íåò ìåòêè òî ôëàã-Ôàëüøü
End If
If HasTag = True Then ' ðàçáèâàåì òåã íà îòäåëüíûå ñîñòàâëÿþùèå
    info.sTitle = Mid(sStr, 4, 30)
    info.sArtist = Mid(sStr, 34, 30)
    info.sAlbum = Mid(sStr, 64, 30)
    info.sYear = Mid(sStr, 94, 4)
    info.sComment = Mid(sStr, 98, 28)
    info.sTrack(1) = Asc(Mid(sStr, 127, 1))
    info.sGenre = Asc(Mid(sStr, 128, 1))
End If
End Function
 
 
Public Function Save() ' ôóíêöèÿ çàïèñûâàþùàÿ â ôàéë íîâûé òåã
Dim nFile
info.sTrack(0) = 0
nFile = FreeFile
If HasTag = True Then ' åñëè òåã åñòü
    Open varFileName For Binary As nFile ' îòêðûâàåì ôàéë
      Put nFile, LOF(nFile) - 124, info ' çàïèñûâàåì òåã
    Close nFile ' çàêðûâàåì ôàéë
Else ' åñëè òåãà íåò
    Open varFileName For Binary As nFile ' îòêðûâàåì ôàéë
       Put nFile, LOF(nFile) - 127, "TAG" ' çàïèñûâàåì ìåòêó òåãà
    Close nFile ' çàêðûâàåì ôàéë
Call Save ' âûïîëíÿåì ðåêóðñèþ
End If
End Function
' äëÿ äîñòóïà ê êëàññó èñïîëüçóåì ïðîöåäóðû ñâîéñòâ Property Get è Property Let
 
Public Property Get Title() As String
Title = Trim(info.sTitle)
End Property
 
Public Property Let Title(ByVal vNewValue As String)
info.sTitle = vNewValue
End Property
 
Public Property Get FileName() As String
End Property
 
Public Property Let FileName(ByVal vNewValue As String)
varFileName = vNewValue
Read
End Property
 
Public Property Get Artist() As String
Artist = Trim(info.sArtist)
End Property
 
Public Property Let Artist(ByVal vNewValue As String)
info.sArtist = vNewValue
End Property
 
Public Property Get Album() As String
Album = Trim(info.sAlbum)
End Property
 
Public Property Let Album(ByVal vNewValue As String)
info.sAlbum = vNewValue
End Property
 
Public Property Get Year() As String
Year = Trim(info.sYear)
End Property
 
Public Property Let Year(ByVal vNewValue As String)
info.sYear = vNewValue
End Property
 
Public Property Get Comment() As String
Comment = Trim(info.sComment)
End Property
 
Public Property Let Comment(ByVal vNewValue As String)
info.sComment = vNewValue
End Property
 
Public Property Get Track() As Variant
Track = info.sTrack(1)
If Track = 0 Then Track = ""
End Property
 
Public Property Let Track(ByVal vNewValue As Variant)
If Not IsNumeric(vNewValue) Or vNewValue > 255 Then
   MsgBox "Ââåäèòå öèôðó íå áîëüøå 255"
Else
   info.sTrack(1) = vNewValue
End If
End Property
 
Public Property Get Genre() As Variant
Genre = info.sGenre
End Property
 
Public Property Let Genre(ByVal vNewValue As Variant)
info.sGenre = vNewValue
End Property

Dim info As clsTagInfo
Set info = New clsTagInfo
 
info.FileName = "ПУТЬ К ФАЙЛУ MP3"
cboGenre.ListIndex = info.Genre
txtAlbum.Text = info.Album
txtArtist.Text = info.Artist
txtComment.Text = info.Comment
txtTitle.Text = info.Title
txtTrack.Text = info.Track
txtYear.Text = info.Year