Imports System.IO
Dim mp As FileStream
Dim Title(30) As Byte
Dim Artist(30) As Byte
Dim Album(30) As Byte
Dim Year(4) As Byte
Dim Comments(30) As Byte
mp = New FileStream("D:\mpdok.mp3", FileMode.Open)
mp.Seek(-125, SeekOrigin.End)
mp.Read(Title, 0, 30)
mp.Seek(-95, SeekOrigin.End)
mp.Read(Artist, 0, 30)
mp.Seek(-65, SeekOrigin.End)
mp.Read(Album, 0, 30)
mp.Seek(-35, SeekOrigin.End)
mp.Read(Year, 0, 4)
mp.Seek(-31, SeekOrigin.End)
mp.Read(Comments, 0, 30)
Dim TxtTitle As String = System.Text.Encoding.ASCII.GetString(Title)
Dim TxtArtist As String = System.Text.Encoding.ASCII.GetString(Artist)
Dim TxtAlbum As String = System.Text.Encoding.ASCII.GetString(Album)
Dim TxtYear As String = System.Text.Encoding.ASCII.GetString(Year)
Dim TextComments As String = System.Text.Encoding.ASCII.GetString(Comments)