Código:
Dim sFile As String
Dim sCadena As String
sFile = App.Path & "Wow.mp3"
Open sFile For Binary As 1#
Get 1#, LOF(1) - 127, sCadena
Close 1#
MsgBox sCadena
con el código anterior estoy suponiendo que coje los ulitmos 128 bytes y lo almacena en sCadena. Una vez almacenado pensaba extraer los datos usando MID, pero al mostrar sCadena no muestra nada. Sin enbargo, cuádo a sCadena lo declaro como Type recién muestra el TAG
Código:
Private Type TAG
Header As String * 3
Titulo As String * 30
Artista As String * 30
Album As String * 30
Ano As String * 4
Comentario As String * 30
Genero As Byte
End Type
Dim sFile As TAG
Dim sCadena As String
sFile = App.Path & "Wow.mp3"
Open sFile For Binary As 1#
Get 1#, LOF(1) - 127, sCadena
Close 1#
MsgBox sCadena.Titulo
Alguién me podría explicar porque al declarar sCadena como String no devuelve nada y al declararla como Type sí??
O será que los binarios no soportan String??