Получить информацию из тэга MP3-файла

Private Sub Form_Load() Dim fNum As Integer Dim sTagIdent As String * 3 Dim sTitle As String * 30 Dim sArtist As String * 30 Dim sAlbum As String * 30 Dim sYear As String * 4 Dim sComment As String * 30 fNum = FreeFile ’Замените ярлык ’c:\MySong.mp3’ любым вашим файлом. Open "c:\MySong.mp3" For Binary As fNum Seek #fNum, LOF(fNum) - 127 Get #fNum, , sTagIdent If sTagIdent = "TAG" Then Get #fNum, , sTitle Get #fNum, , sArtist Get #fNum, , sAlbum Get #fNum, , sYear Get #fNum, , sComment End If Close #fNum MsgBox sTitle & "," & sArtist & "," & sAlbum & "," & sYear & "," & sComment End Sub