dim f as FolderItem, readMP3 as BinaryStream
dim mb as MemoryBlock
dim output, tag, song, artist, album, year, comment as String
f = GetOpenFolderItem("")
if f <> nil then
readMP3 = BinaryStream.Open(f,false)
readMP3.Position = (readMP3.Length - 128)
mb = readMP3.Read(readMP3.Length)
tag = mb.StringValue(0,3)
song = mb.StringValue(3,30)
artist = mb.StringValue(33,30)
album = mb.StringValue(63,30)
year = mb.StringValue(93,4)
comment = mb.StringValue(97,30)
textArea1.text = artist
textArea1.text = textArea1.text + " - " + album
textArea1.text = textArea1.text + " - " + song
textArea1.text = textArea1.text + " - " + year
textArea1.text = textArea1.text + " - " + comment
end if