Visual Basic 6 function "id3v1_empty_tag"

Go back

Below you'll find the source for the Visual Basic 6 function id3v1_empty_tag.

Attribute VB_Name = "modId3v1EmptyTag"
' This function is downloaded from:
' You may freely distribute this file but please leave all comments, including this one, in it.
' @Author Stefan Thoolen <>

Option Explicit

' Used to send back the ID3 tag to the application
' This is different from id3v1_file_footer since this type does not have string lengths defined
' Also some reformatting has been done so usage will be more user friendly
Public Type id3v1_tag
    has_tag As Boolean
    artist As String
    title As String
    album As String
    year As String
    has_trackno As Boolean
    trackno As Byte
    comment As String
    genre_id As Byte
    genre_text As String
    speed As Byte
End Type

' Returns an empty tag
' @return   id3v1_tag                       The tag elements
' @author   Stefan Thoolen <>
Public Function id3v1_empty_tag() As id3v1_tag
    Dim ret As id3v1_tag
    id3v1_empty_tag = ret
End Function