Trucos Varios I
ESTRUCTURA DE UN MP3
Private Type MP3Info
Tag As String * 3
Title As String * 30
Artist As String * 30
Album As String * 30
Year As String * 4
Comment As String * 29
Track As Byte
Genre As Byte
End Type
Dim Info As MP3Info
Open sFileName For Binary As #1
lInfoStart = LOF(1) - 127
Get #1, lInfoStart, Info
Close #1
|
