[Vb 06] Veja as Informações de arquivos .mp3 com esse tuto

[Descrição]
Codigo que recebe informações de arquivos .MP3, usando o Visual Basic 6.

[Codigo]
Declaração:
CODE
Private Type MP3Tag
Tag As String * 3
Titulo As String * 30
Artista As String * 30
Album As String * 30
Ano As String * 4
Comentario As String * 30
Gênero As String * 1
End Type


Função:
CODE
Private Function InformaçõesMP3(ByVal sArquivo As String) As MP3Tag
Dim MP3 As MP3Tag

Open sArquivo For Binary As #1
With MP3
Get #1, FileLen(sArquivo) - 127, .Tag
If Not .Tag = "TAG" Then
Close #1
Exit Function
End If
Get #1, , .Titulo
Get #1, , .Artista
Get #1, , .Album
Get #1, , .Ano
Get #1, , .Comentario
Get #1, , .Gênero
Close #1
End With

InformaçõesMP3.Titulo = Trim$(MP3.Titulo)
InformaçõesMP3.Artista = Trim$(MP3.Artista)
InformaçõesMP3.Album = Trim$(MP3.Album)
InformaçõesMP3.Ano = Trim$(MP3.Ano)
InformaçõesMP3.Comentario = Trim$(MP3.Comentario)
InformaçõesMP3.Gênero = CInt(Asc(Trim$(MP3.Gênero))) - 1
End Function


Como Usar:
CODE
Private Sub Command1_Click()
Dim MP3 As MP3Tag

MP3 = InformaçõesMP3("C:\Downloads\Numb.mp3")
Debug.Print "Titulo: " & MP3.Titulo
Debug.Print "Artista: " & MP3.Artista
Debug.Print "Album: " & MP3.Album
Debug.Print "Ano: " & MP3.Ano
Debug.Print "Comentario: " & MP3.Comentario
Debug.Print "Gênero: " & MP3.Gênero
End Sub


[Creditos]
BaD-DrEaM
and
Enemy