Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        ReadWMAInformation(Server.MapPath("08 Baptized.wma"), New WMAInformation())
    End Sub

    Public Structure WMAInformation
        Public Duration As String
        Public Author As String
        Public CurrentBitRate As String
        Public FileSize As String
        Public Is_Protected As Boolean
        Public SourceURL As String
        Public Title As String
        Public WM_AlbumTitle As String
        Public WM_Composer As String
        Public WM_Genre As String
        Public WM_Lyrics As String
        Public WM_TrackNumber As Integer
        Public WM_Year As Integer
    End Structure 'WMAInformation'

    Public Sub ReadWMAInformation(ByVal pathMedia As String, ByRef fileInfo As WMAInformation)

        Try
            Dim playerOpen As WMPLib.WindowsMediaPlayer = New WMPLib.WindowsMediaPlayer
            Dim mediaFile As WMPLib.IWMPMedia = playerOpen.newMedia(pathMedia)

            fileInfo.Duration = mediaFile.durationString

            fileInfo.Author = mediaFile.getItemInfo("Author")
            fileInfo.CurrentBitRate = mediaFile.getItemInfo("CurrentBitRate")
            fileInfo.FileSize = mediaFile.getItemInfo("FileSize")
            fileInfo.Is_Protected = mediaFile.getItemInfo("Is_Protected")
            fileInfo.SourceURL = mediaFile.getItemInfo("SourceURL")
            fileInfo.Title = mediaFile.getItemInfo("Title")
            fileInfo.WM_AlbumTitle = mediaFile.getItemInfo("WM/AlbumTitle")
            fileInfo.WM_Composer = mediaFile.getItemInfo("WM/Composer")
            fileInfo.WM_Genre = mediaFile.getItemInfo("WM/Genre")
            fileInfo.WM_Lyrics = mediaFile.getItemInfo("WM/Lyrics")
            fileInfo.WM_TrackNumber = mediaFile.getItemInfo("WM/TrackNumber")
            fileInfo.WM_Year = mediaFile.getItemInfo("WM/Year")

        Catch ex As Exception

            response.write(ex.ToString)

        End Try

    End Sub 'ReadWMAInformation'