Полагаю, ваш файл имеет длину менее 125 байт. Вы пытаетесь переместить свою позицию потока на 125 байт до конца файла. Я бы проверил Length
файла, прежде чем пытаться переместить позицию вашего потока. Такие как:
Dim mp As FileStream
Dim Title(30) As Byte
mp = New FileStream(My.Computer.FileSystem.SpecialDirectories.MyMusic & "\Set List Planner\Tracks" & filename, FileMode.Open)
If mp.Length >= 125 Then
mp.Seek(-125, SeekOrigin.End)
mp.Read(Title, 0, 30)
Me.songName = System.Text.Encoding.ASCII.GetString(Title)
End If
Просто вдобавок я попробовал ваш код, используя образец Mp3, просто чтобы убедиться, что я не легкомыслен, он извлек название песни. Я хотел бы повторить, что вам нужно проверить длину вашего потока перед тем, как начать поиск. Например, длина песни, которую я использовал, была 8414449.