RSS: Site FeedGet tag info form a mp3 file
Level:
Since Visual Basic has great support for reading and writing to the file system it can be used for things that wern't even popular or around when it was created. A great example of this is MP3 files. This source code sample show how you can read the file information details from an MP3 file and grab any of the tag info from that audio file. The tagging info are things such as Title, Artist, Album, Year, and Custom Comment information. These are set in programs such as iTunes. (E6ZXKMNDB23T)
To use this source snippet simply create a new VB6 project. Add five text boxes to the form. Open up the code for the form and add the following source code:
- Private Type Mp3Tag
- Title As String * 30
- Artist As String * 30
- Album As String * 30
- Year As String * 4
- Comment As String * 30
- End Type
- Private Sub Form_Load()
- Dim TagInfo As Mp3Tag
- Dim FileNum As Integer
- Dim Tag As String * 3
- FileNum = FreeFile
- Open "c:\Demo.mp3" For Binary As FileNum
- Seek #FileNum, LOF(FileNum) - 127
- Get #FileNum, , Tag
- If Tag = "TAG" Then
- Get #FileNum, , TagInfo.Title
- Get #FileNum, , TagInfo.Artist
- Get #FileNum, , TagInfo.Album
- Get #FileNum, , TagInfo.Year
- Get #FileNum, , TagInfo.Comment
- End If
- Close #FileNum
- Text1.Text = Trim(TagInfo.Title)
- Text2.Text = Trim(TagInfo.Artist)
- Text3.Text = Trim(TagInfo.Album)
- Text4.Text = Trim(TagInfo.Year)
- Text5.Text = Trim(TagInfo.Comment)
- End Sub
Obviously this code snippet is hard coded to only read Demo.mp3 on the C drive, but you could easily modify it to hit a different file or to even allow the user to select the file. Also you could even use the knowledge you can glean from this to change MP3 tagging info. If you do this please add a comment below and share with everyone what fun Visual Basic mp3 tricks you come up with.
Note: The source for this was found at DreamVB which is no longer online. (E6ZXKMNDB23T)
- 16235 reads
Issue
Hey thanks a lot for this code. However when i create a new forms application, add five textboxes and add the code (except Private Sub Form_Load()) and change the directory to an existing one, i still get many errors? If you can make additional tut or give me a link for the project folder, Ill join the site.
Thanks
Post new comment