· Detectar la codificación de un archivo de texto

(Para quien no entienda de BOM's y codificaciones, no existe una manera 100% fiable de detectar la codificación y puede dar falsos positivos)

#Region " Detect Text Encoding "
 
    ' [ Detect Text Encoding Function ]
    '
    ' Examples :
    '
    ' MsgBox(Detect_Text_Encoding("C:\ANSI File.txt").ToString) ' Result: System.Text.SBCSCodePageEncoding
    ' MsgBox(Detect_Text_Encoding("C:\UTF8 File.txt").ToString) ' Result: System.Text.UTF8Encoding
 
 
    Public Function Detect_Text_Encoding(TextFile As String) As System.Text.Encoding
 
        Dim Bytes() As Byte = IO.File.ReadAllBytes(TextFile)
 
        Dim detectedEncoding As System.Text.Encoding = Nothing
 
        For Each info As System.Text.EncodingInfo In System.Text.Encoding.GetEncodings()
 
            Dim currentEncoding As System.Text.Encoding = info.GetEncoding()
            Dim preamble() As Byte = currentEncoding.GetPreamble()
            Dim match As Boolean = True
 
            If (preamble.Length > 0) And (preamble.Length <= Bytes.Length) Then
 
                For i As Integer = 0 To preamble.Length - 1
 
                    If preamble(i) <> Bytes(i) Then
                        match = False
                        Exit For
                    End If
 
                Next i
 
            Else
 
                match = False
 
            End If
 
            If match Then
                detectedEncoding = currentEncoding
                Exit For
            End If
 
        Next info
 
        If detectedEncoding Is Nothing Then
            Return System.Text.Encoding.Default
        Else
            Return detectedEncoding
        End If
 
    End Function
 
#End Region

Listar por el método Burbuja un Array de String o una Lista de String:

#Region " BubbleSort Array "
 
    ' BubbleSort Array
    '
    ' Examples :
    '
    ' Dim MyArray As String() = {"10", "333", "2", "45"}
    ' For Each item In BubbleSort_Array(myarray) : MsgBox(item) : Next ' Result: {"2", "10", "45", "333"}
 
    Private Function BubbleSort_Array(list As String()) As String()
 
        Return list.Select(Function(s) New With { _
            Key .OrgStr = s, _
            Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                           s, "(\d+)|(\D+)", _
                           Function(m) m.Value.PadLeft(list.Select(Function(y) y.Length).Max, _
                           If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToArray
 
    End Function
 
#End Region

#Region " BubbleSort IEnumerable(Of String) "
 
 
    ' BubbleSort IEnumerable(Of String)
    '
    ' Examples :
    '
    ' Dim MyIEnumerable As IEnumerable(Of String) = {"10", "333", "2", "45"}
    ' For Each item In BubbleSort_IEnumerable(MyIEnumerable) : MsgBox(item) : Next ' Result: {"2", "10", "45", "333"}
 
    Private Function BubbleSort_IEnumerable(list As IEnumerable(Of String)) As IEnumerable(Of String)
 
        Return list.Select(Function(s) New With { _
            Key .OrgStr = s, _
            Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                           s, "(\d+)|(\D+)", _
                           Function(m) m.Value.PadLeft(list.Select(Function(y) y.Length).Max, _
                           If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr)
 
    End Function
 
#End Region

#Region " BubbleSort List(Of String) "
 
 
    ' BubbleSort List(Of String)
    '
    ' Examples :
    '
    ' Dim MyList As New List(Of String) From {"10", "333", "2", "45"}
    ' For Each item In BubbleSort_List(MyList) : MsgBox(item) : Next ' Result: {"2", "10", "45", "333"}
 
    Private Function BubbleSort_List(list As List(Of String)) As List(Of String)
 
        Return list.Select(Function(s) New With { _
            Key .OrgStr = s, _
            Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                           s, "(\d+)|(\D+)", _
                           Function(m) m.Value.PadLeft(list.Select(Function(x) x.Length).Max, _
                           If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList
 
    End Function
 
#End Region

---

Listar por el  método Burbuja una Lista de DirectoryInfo o de FileInfo especificando la propiedad que se evaluará (por el momento solo funciona con propiedades "TopLevel"):

#Region " BubbleSort List(Of DirectoryInfo) "
 
    ' BubbleSort List(Of DirectoryInfo)
    '
    ' Examples :
    '
    ' Dim Folders As List(Of IO.DirectoryInfo) = IO.Directory.GetDirectories("C:\Windows", "*").Select(Function(p) New IO.DirectoryInfo(p)).ToList()
    '
    ' For Each folder In Bubble_Sort_List_DirectoryInfo(Folders, Function() New IO.DirectoryInfo("").Name)
    '     MsgBox(folder.Name)
    ' Next
 
    Private Shared Function Bubble_Sort_List_DirectoryInfo(list As List(Of IO.DirectoryInfo), _
                                                         exp As Linq.Expressions.Expression(Of Func(Of Object))) _
                                                         As List(Of IO.DirectoryInfo)
 
        Dim member As Linq.Expressions.MemberExpression = _
            If(TypeOf exp.Body Is Linq.Expressions.UnaryExpression, _
               DirectCast(DirectCast(exp.Body, Linq.Expressions.UnaryExpression).Operand, Linq.Expressions.MemberExpression), _
               DirectCast(exp.Body, Linq.Expressions.MemberExpression))
 
        Return list.Select(Function(s) New With { _
        Key .OrgStr = s, _
        Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                       s.Name, "(\d+)|(\D+)", _
                       Function(m) m.Value.PadLeft( _
                                   list.Select(Function(folder) DirectCast(DirectCast(member.Member, System.Reflection.PropertyInfo) _
                                                                .GetValue(folder, Nothing), Object).ToString.Length).Max(), _
                                                                If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList
 
    End Function
 
#End Region

#Region " BubbleSort List(Of FileInfo) "
 
    ' BubbleSort List(Of FileInfo)
    '
    ' Examples :
    '
    ' Dim Files As List(Of IO.FileInfo) = IO.Directory.GetFiles("C:\Windows", "*").Select(Function(p) New IO.FileInfo(p)).ToList()
    '
    ' For Each file In Bubble_Sort_List_FileInfo(Files, Function() New IO.FileInfo("").Name)
    '     MsgBox(file.Name)
    ' Next
 
    Private Shared Function Bubble_Sort_List_FileInfo(list As List(Of IO.FileInfo), _
                                                         exp As Linq.Expressions.Expression(Of Func(Of Object))) _
                                                         As List(Of IO.FileInfo)
 
        Dim member As Linq.Expressions.MemberExpression = _
            If(TypeOf exp.Body Is Linq.Expressions.UnaryExpression, _
               DirectCast(DirectCast(exp.Body, Linq.Expressions.UnaryExpression).Operand, Linq.Expressions.MemberExpression), _
               DirectCast(exp.Body, Linq.Expressions.MemberExpression))
 
        Return list.Select(Function(s) New With { _
        Key .OrgStr = s, _
        Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                       s.Name, "(\d+)|(\D+)", _
                       Function(m) m.Value.PadLeft( _
                                   list.Select(Function(file) DirectCast(DirectCast(member.Member, System.Reflection.PropertyInfo) _
                                                                .GetValue(file, Nothing), Object).ToString.Length).Max(), _
                                                                If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList
 
    End Function
 
#End Region

Una Class para manejar la aplicación mp3gain.

Sirve para aplicar una ganancia NO destructiva a archivos MP3.

http://mp3gain.sourceforge.net/

EDITO: Código mejorado.

#Region " mp3gain Helper "
 
 
 
' [ mp3gain Helper ]
'
' // By Elektro H@cker
'
'
' Instructions:
'
' 1. Add the "mp3gain.exe" into the project.
'
'
' Examples :
'
' MsgBox(mp3gain.Is_Avaliable) ' Checks if mp3gain executable is avaliable.
'
' MsgBox(mp3gain.File_Has_MP3Gain_Tag("File.mp3")) ' Checks if file contains mp3gain APE tag
'
' mp3gain.Set_Gain("File.mp3", 95) ' Set the db Gain of file to 95 db (In a scale of "0/100" db)
' mp3gain.Set_Gain("File.mp3", 95, True) ' Set the db Gain of file to -95 db and preserve the datetime of file.
'
' mp3gain.Apply_Gain("File.mp3", +5) ' Apply a change of +5 db in the curent gain of file.
' mp3gain.Apply_Gain("File.mp3", -5) ' Apply a change of -5 db in the curent gain of file.
'
' mp3gain.Apply_Channel_Gain("File.mp3", mp3gain.Channels.Left, +10) ' Apply a change of +10 db in the curent Left channel gain of file.
' mp3gain.Apply_Channel_Gain("File.mp3", mp3gain.Channels.Right, -10) ' Apply a change of -10 db in the curent Right channel gain of file.
'
' mp3gain.Undo_Gain("File.mp3") ' Undo all MP3Gain db changes made in file.
'
'
' ------
' EVENTS
' ------
' Public WithEvents mp3gain As New mp3gain
'
' Sub mp3gain_Progress(Progress As Integer, e As EventArgs) Handles mp3gain.PercentDone
'     ProgressBar1.Maximum = 100
'     ProgressBar1.Value = Progress
' End Sub
'
' Sub mp3gain_Exited(Message As String, e As EventArgs) Handles mp3gain.Exited
'     ProgressBar1.Value = 0
'     MessageBox.Show(Message)
' End Sub
 
 
 
Public Class mp3gain
 
#Region " CommandLine parametter legend "
 
    ' MP3Gain Parametter Legend:
    '
    ' /c   - Ignore clipping warning when applying gain.
    ' /d   - Set global gain.
    ' /e   - Skip Album analysis, even if multiple files listed.
    ' /g   - apply gain
    ' /p   - Preserve original file timestamp.
    ' /r   - apply Track gain automatically (all files set to equal loudness)
    ' /t   - Writes modified data to temp file, then deletes original instead of modifying bytes in original file.
    ' /u   - Undo changes made (based on stored tag info).
    ' /s c - Check stored tag info.
 
#End Region
 
#Region " Variables "
 
    ' <summary>
    ' Gets or sets the mp3gain.exe executable path.
    ' </summary>
    Public Shared mp3gain_Location As String = "c:\mp3gain.exe"
 
    ' Stores the MP3Gain process ErrorOutput.
    Private Shared ErrorOutput As String = String.Empty
 
    ' Stores the MP3Gain process StandardOutput.
    Private Shared StandardOutput As String = String.Empty ' Is not needed
 
    ' Sets a Flag to know if file has MP3Gain APE tag.
    Private Shared HasTag As Boolean = False
 
#End Region
 
#Region " Enumerations "
 
    Enum Channels As Short
        Left = 0  ' /l 0
        Right = 1 ' /l 1
    End Enum
 
#End Region
 
#Region " Events "
 
    ' <summary>
    ' Event raised when process progress changes.
    ' </summary>
    Public Shared Event PercentDone As EventHandler(Of PercentDoneEventArgs)
    Public Class PercentDoneEventArgs : Inherits EventArgs
        Public Property Progress As Integer
    End Class
 
    ' <summary>
    ' Event raised when MP3Gain process has exited.
    ' </summary>
    Public Shared Event Exited As EventHandler(Of ExitedEventArgs)
    Public Class ExitedEventArgs : Inherits EventArgs
        Public Property Message As String
    End Class
 
#End Region
 
#Region " Processes Info "
 
    Private Shared Process_TagCheck As New Process() With { _
    .StartInfo = New ProcessStartInfo With { _
                .CreateNoWindow = True, _
                .UseShellExecute = False, _
                .RedirectStandardError = False, _
                .RedirectStandardOutput = True _
    }}
 
    Private Shared Process_For_Tag As New Process() With { _
    .StartInfo = New ProcessStartInfo With { _
                .CreateNoWindow = True, _
                .UseShellExecute = False, _
                .RedirectStandardError = False, _
                .RedirectStandardOutput = True _
    }}
 
    Private Shared Process_For_NonTag As New Process() With { _
    .StartInfo = New ProcessStartInfo With { _
                .CreateNoWindow = True, _
                .UseShellExecute = False, _
                .RedirectStandardError = True, _
                .RedirectStandardOutput = True _
    }}
 
#End Region
 
#Region " Miscellaneous functions "
 
    ' <summary>
    ' Checks if mp3gain.exe process is avaliable.
    ' </summary>
    Public Shared Function Is_Avaliable() As Boolean
        Return IO.File.Exists(mp3gain_Location)
    End Function
 
    ' Checks if a file exist.
    Private Shared Sub CheckFileExists(ByVal File As String)
 
        If Not IO.File.Exists(File) Then
            ' Throw New Exception("File doesn't exist: " & File)
            MessageBox.Show("File doesn't exist: " & File, "MP3Gain", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
 
    End Sub
 
#End Region
 
#Region " Gain Procedures "
 
    ' <summary>
    ' Checks if mp3gain APE tag exists in file.
    ' </summary>
    Public Shared Function File_Has_MP3Gain_Tag(ByVal MP3_File As String) As Boolean
 
        CheckFileExists(MP3_File)
 
        Process_TagCheck.StartInfo.FileName = mp3gain_Location
        Process_TagCheck.StartInfo.Arguments = String.Format("/s c ""{0}""", MP3_File)
        Process_TagCheck.Start()
        Process_TagCheck.WaitForExit()
 
        Return Process_TagCheck.StandardOutput.ReadToEnd.Trim.Split(Environment.NewLine).Count - 1
 
        ' Process_TagCheck.Close()
 
    End Function
 
    ' <summary>
    ' Set global db Gain in file.
    ' </summary>
    Public Shared Sub Set_Gain(ByVal MP3_File As String, _
                               ByVal Gain As Integer, _
                               Optional ByVal Preserve_Datestamp As Boolean = True)
 
        Run_MP3Gain(MP3_File, String.Format("/c /e /r /t {1} /d {2} ""{0}""", _
                                            MP3_File, _
                                            If(Preserve_Datestamp, "/p", ""), _
                                            If(Gain < 0, Gain + 89.0, Gain - 89.0)))
 
    End Sub
 
    ' <summary>
    ' Apply db Gain change in file.
    ' </summary>
    Public Shared Sub Apply_Gain(ByVal MP3_File As String, _
                                 ByVal Gain As Integer, _
                                 Optional ByVal Preserve_Datestamp As Boolean = True)
 
        Run_MP3Gain(MP3_File, String.Format("/c /e /r /t {1} /g {2} ""{0}""", _
                                            MP3_File, _
                                            If(Preserve_Datestamp, "/p", ""), _
                                            Gain))
 
    End Sub
 
    ' <summary>
    ' Apply db Gain change of desired channel in file.
    ' Only works for Stereo MP3 files.
    ' </summary>
    Public Shared Sub Apply_Channel_Gain(ByVal MP3_File As String, _
                                         ByVal Channel As Channels, _
                                         ByVal Gain As Integer, _
                                         Optional ByVal Preserve_Datestamp As Boolean = True)
 
        Run_MP3Gain(MP3_File, String.Format("/c /e /r /l {2} {3} ""{0}""", _
                                            MP3_File, _
                                            If(Preserve_Datestamp, "/p", ""), _
                                            If(Channel = Channels.Left, 0, 1), _
                                            Gain))
 
    End Sub
 
    ' <summary>
    ' Undo all MP3Gain db changes made in file (based on stored tag info).
    ' </summary>
    Public Shared Sub Undo_Gain(ByVal MP3_File As String, _
                                Optional ByVal Preserve_Datestamp As Boolean = True)
 
        Run_MP3Gain(MP3_File, String.Format("/c /t {1} /u ""{0}""", _
                                            MP3_File, _
                                            If(Preserve_Datestamp, "/p", "")))
 
    End Sub
 
#End Region
 
#Region " Run MP3Gain Procedures "
 
    Private Shared Sub Run_MP3Gain(ByVal MP3_File As String, ByVal Parametters As String)
 
        CheckFileExists(MP3_File)
 
        HasTag = File_Has_MP3Gain_Tag(MP3_File)
 
        Process_For_Tag.StartInfo.FileName = mp3gain_Location
        Process_For_Tag.StartInfo.Arguments = Parametters
 
        Process_For_NonTag.StartInfo.FileName = mp3gain_Location
        Process_For_NonTag.StartInfo.Arguments = Parametters
 
        If HasTag Then
            Run_MP3Gain_For_Tag()
        Else
            Run_MP3Gain_For_NonTag()
        End If
 
    End Sub
 
    Private Shared Sub Run_MP3Gain_For_Tag()
 
        Process_For_Tag.Start()
        Process_For_Tag.WaitForExit()
 
        RaiseEvent Exited(Process_For_Tag.StandardOutput.ReadToEnd.Trim.Split(Environment.NewLine).LastOrDefault, Nothing)
 
        StandardOutput = Nothing
        ' Process_For_Tag.Close()
 
    End Sub
 
    Private Shared Sub Run_MP3Gain_For_NonTag()
 
        Process_For_NonTag.Start()
 
        While Not Process_For_NonTag.HasExited
 
            Try
 
                ErrorOutput = Process_For_NonTag.StandardError.ReadLine.Trim.Split("%").First
                If CInt(ErrorOutput) < 101 Then
                    RaiseEvent PercentDone(ErrorOutput, Nothing)
                End If
 
            Catch : End Try
 
        End While
 
        StandardOutput = Process_For_NonTag.StandardOutput.ReadToEnd.Trim.Split(Environment.NewLine).Last
 
        RaiseEvent Exited(StandardOutput, Nothing)
 
        ErrorOutput = Nothing
        StandardOutput = Nothing
        ' Process_For_Tag.Close()
 
    End Sub
 
#End Region
 
End Class
 
#End Region

Un ayudante de la librería UltraId3Lib: http://home.fuse.net/honnert/UltraID3Lib/UltraID3Lib0968.zip

La diferencia entre esta librería y TagLib Sharp es que UltraID3Lib trabaja sólamente metadatos de tipo ID3v1 e ID3v2 (y las variantes de ID3v2, y los Covers)

Esta librería está optimizada para trabajar archivos MP3, de hecho sólamente trabaja archivos mp3, además hice un pequeño test de velocidad y estos fueron los resultados:


Ahora... si tuviera que elegir entre la lógica interna que usa cada librería, lo cierto es que no sabría por cual decidirme, por eso hice un ayudante para las dos librerías xD.

EDITO: He extendido la Class para manejar las carátulas de los mp3.

EDITO: He vuelto ha extender la Class para exprimir un poco más la librería.

#Region " UltraID3Lib "
 
 
 
' [ UltraID3Lib Helper ]
'
' // By Elektro H@cker
'
'
' Instructions:
' 1. Add a reference to "UltraID3Lib.dll" into the project.
'
'
' Examples:
'
' MsgBox(UltraID3Lib.FileIsCorrupt("C:\File.mp3")) ' Result: True or False
' MsgBox(UltraID3Lib.ID3v1_Exist("C:\File.mp3"))   ' Result: True or False
' MsgBox(UltraID3Lib.ID3v2_Exist("C:\File.mp3"))   ' Result: True or False
' MsgBox(UltraID3Lib.IsVBR("C:\File.mp3"))         ' Result: True or False
' MsgBox(UltraID3Lib.Get_Metadata_Errors("C:\File.mp3"))
' MsgBox(UltraID3Lib.Get_Metadata_Warnings("C:\File.mp3"))
'
' MsgBox(UltraID3Lib.Get_ID3_Tags("C:\File.mp3"))
' MsgBox(UltraID3Lib.Get_Title("C:\File.mp3"))
' MsgBox(UltraID3Lib.Get_Artist("C:\File.mp3"))
' MsgBox(UltraID3Lib.Get_Album("C:\File.mp3"))
' MsgBox(UltraID3Lib.Get_Genre("C:\File.mp3"))
' MsgBox(UltraID3Lib.Get_Year("C:\File.mp3"))
' MsgBox(UltraID3Lib.Get_Basic_Tag_Fields("C:\File.mp3"))
'
' UltraID3Lib.Remove_ID3v1_Tag("C:\File.mp3") ' Removes ID3v1 Tag
' UltraID3Lib.Remove_ID3v2_Tag("C:\File.mp3") ' Removes ID3v2 Tag
' UltraID3Lib.Remove_ID3v1_ID3v2_Tags("C:\File.mp3") ' Removes ID3v1 + ID3v2 Tags
'
' UltraID3Lib.Set_Tag_Field("C:\File.mp3", Sub(x) x.ID3v2Tag.Title = "Title Test")
' UltraID3Lib.Set_Tag_Fields("C:\File.mp3", {Sub(x) x.ID3v2Tag.Title = "Title Test", Sub(x) x.ID3v2Tag.Artist = "Artist Test"})
'
' UltraID3Lib.Set_Main_Cover("C:\File.mp3", "C:\Image.jpg")
' UltraID3Lib.Add_Cover("C:\File.mp3", "C:\Image.jpg")
' UltraID3Lib.Delete_Covers("C:\File.mp3")
' PictureBox1.BackgroundImage = UltraID3Lib.Get_Main_Cover("C:\File.mp3")
'
' For Each Genre As String In UltraID3Lib.Get_Generic_ID3_Genres() : MsgBox(Genre) : Next
'
' MsgBox(UltraID3Lib.Get_Bitrate("C:\File.mp3")) ' Result: 320
' MsgBox(UltraID3Lib.Get_Duration("C:\File.mp3")) ' Result: 00:00:00:000
' MsgBox(UltraID3Lib.Get_Frequency("C:\File.mp3")) ' Result: 44100
' MsgBox(UltraID3Lib.Get_Channels("C:\File.mp3")) ' Result: JointStereo
' MsgBox(UltraID3Lib.Get_Layer("C:\File.mp3")) ' Result: MPEGLayer3
' MsgBox(UltraID3Lib.Get_Filesize("C:\File.mp3")) ' Result: 6533677
 
 
 
Imports HundredMilesSoftware.UltraID3Lib
 
Public Class UltraID3Lib
 
    ''' <summary>
    ''' Stores the UltraID3Lib object.
    ''' </summary>
    Private Shared [UltraID3] As New UltraID3
 
    ' ''' <summary>
    ' ''' Stores the Picture things.
    ' ''' </summary>
    ' Private Shared CurrentPictureFrame As ID3v2PictureFrame ' Not used in this Class
    ' Private Shared PictureTypes As ArrayList ' Not used in this Class
    ' Private Shared PictureFrames As ID3FrameCollection ' Not used in this Class
    ' Private Shared PictureIndex As Integer ' Not used in this Class
 
    ''' <summary>
    ''' Checks if file is possibly corrupt.
    ''' </summary>
    Public Shared Function FileIsCorrupt(ByVal File As String) As Boolean
 
        Try
            [UltraID3].Read(File)
            Return Convert.ToBoolean( _
                       [UltraID3].GetExceptions(ID3ExceptionLevels.Error).Length _
                     + [UltraID3].GetExceptions(ID3ExceptionLevels.Warning).Length)
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
    ''' <summary>
    ''' Checks for errors inside file metadata.
    ''' </summary>
    Public Shared Function Get_Metadata_Errors(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return String.Join(Environment.NewLine, _
                               [UltraID3].GetExceptions(ID3ExceptionLevels.Error) _
                               .Select(Function(ex) ex.Message))
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
    ''' <summary>
    ''' Checks for warnings inside file metadata.
    ''' </summary>
    Public Shared Function Get_Metadata_Warnings(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return String.Join(Environment.NewLine, _
                               [UltraID3].GetExceptions(ID3ExceptionLevels.Warning) _
                               .Select(Function(ex) ex.Message))
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
    ''' <summary>
    ''' Checks if ID3v1 exists in file.
    ''' </summary>
    Public Shared Function ID3v1_Exist(ByVal File As String) As Boolean
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].ID3v1Tag.ExistsInFile
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
    ''' <summary>
    ''' Checks if ID3v2 exists in file.
    ''' </summary>
    Public Shared Function ID3v2_Exist(ByVal File As String) As Boolean
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].ID3v2Tag.ExistsInFile
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets ID3 TagTypes of file.
    ''' </summary>
    Public Shared Function Get_ID3_Tags(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
 
            Return String.Format("{0}{1}", _
                                 If([UltraID3].ID3v1Tag.ExistsInFile, "ID3v1, ", ""), _
                                 If([UltraID3].ID3v2Tag.ExistsInFile, " ID3v2", "")).Trim
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Removes entire ID3v1 Tag from file.
    ''' </summary>
    Public Shared Sub Remove_ID3v1_Tag(ByVal File As String)
 
        Try
            [UltraID3].Read(File)
            [UltraID3].ID3v1Tag.Clear()
            [UltraID3].Write()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Removes entire ID3v2 Tag from file.
    ''' </summary>
    Public Shared Sub Remove_ID3v2_Tag(ByVal File As String)
 
        Try
            [UltraID3].Read(File)
            [UltraID3].ID3v2Tag.Clear()
            [UltraID3].Write()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Removes entire ID3v1 + ID3v2 Tags from file.
    ''' </summary>
    Public Shared Sub Remove_ID3v1_ID3v2_Tags(ByVal File As String)
 
        Try
            [UltraID3].Read(File)
            [UltraID3].ID3v1Tag.Clear()
            [UltraID3].ID3v2Tag.Clear()
            [UltraID3].Write()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Gets the Title tag field of file.
    ''' </summary>
    Public Shared Function Get_Title(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].Title
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the Artist tag field of file.
    ''' </summary>
    Public Shared Function Get_Artist(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].Artist
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the Album tag field of file.
    ''' </summary>
    Public Shared Function Get_Album(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].Album
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the Genre tag field of file.
    ''' </summary>
    Public Shared Function Get_Genre(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].Genre
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the Year tag field of file.
    ''' </summary>
    Public Shared Function Get_Year(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].Year
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the basic tag fields of file.
    ''' </summary>
    Public Shared Function Get_Basic_Tag_Fields(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
 
            Return String.Format("Title: {1}{0}Artist: {2}{0}Album: {3}{0}Genre: {4}{0}Year: {5}", Environment.NewLine, _
                                 [UltraID3].Title, _
                                 [UltraID3].Artist, _
                                 [UltraID3].Album, _
                                 [UltraID3].Genre, _
                                 [UltraID3].Year)
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return String.Empty
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Sets a Tag field.
    ''' </summary>
    Public Shared Sub Set_Tag_Field(ByVal File As String, _
                                    ByVal FieldSetter As Action(Of UltraID3))
 
        Try
            [UltraID3].Read(File)
            FieldSetter([UltraID3])
            [UltraID3].Write()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Sets multiple Tag fields.
    ''' </summary>
    Public Shared Sub Set_Tag_Fields(ByVal File As String, _
                                     ByVal FieldSetter() As Action(Of UltraID3))
 
 
        Try
            [UltraID3].Read(File)
 
            For Each Field As Action(Of UltraID3) In FieldSetter
                Field([UltraID3])
            Next
 
            [UltraID3].Write()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Sets Main Picture Cover.
    ''' </summary>
    Public Shared Sub Set_Main_Cover(ByVal File As String, _
                            ByVal Picture As String)
 
        Try
            [UltraID3].Read(File)
            [UltraID3].ID3v2Tag.Frames.Add( _
                       New ID3v23PictureFrame(New Bitmap(Picture), PictureTypes.CoverFront, String.Empty, TextEncodingTypes.Unicode))
 
            [UltraID3].Write()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Adds a Picture Cover.
    ''' </summary>
    Public Shared Sub Add_Cover(ByVal File As String, _
                                ByVal Picture As String)
 
        Try
            [UltraID3].Read(File)
            [UltraID3].ID3v2Tag.Frames.Add( _
                       New ID3v23PictureFrame(New Bitmap(Picture), PictureTypes.Other, String.Empty, TextEncodingTypes.Unicode))
            [UltraID3].Write()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Deletes all Picture Covers.
    ''' </summary>
    Public Shared Sub Delete_Covers(ByVal File As String)
 
        Try
            [UltraID3].Read(File)
 
            [UltraID3].ID3v2Tag.Frames.Remove( _
                       [UltraID3].ID3v2Tag.Frames.GetFrames(MultipleInstanceID3v2FrameTypes.ID3v22Picture))
 
            [UltraID3].ID3v2Tag.Frames.Remove( _
                       [UltraID3].ID3v2Tag.Frames.GetFrames(MultipleInstanceID3v2FrameTypes.ID3v23Picture))
 
            [UltraID3].Write()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Gets Main Picture Cover.
    ''' </summary>
    Public Shared Function Get_Main_Cover(ByVal File As String) As Bitmap
 
        Try
            [UltraID3].Read(File)
 
            If [UltraID3].ID3v2Tag.Frames.GetFrame(MultipleInstanceID3v2FrameTypes.ID3v23Picture, False) IsNot Nothing Then
                Return DirectCast( _
                       [UltraID3].ID3v2Tag.Frames.GetFrame(MultipleInstanceID3v2FrameTypes.ID3v23Picture, False),  _
                       ID3v2PictureFrame).Picture
            End If
 
            If [UltraID3].ID3v2Tag.Frames.GetFrame(MultipleInstanceID3v2FrameTypes.ID3v22Picture, False) IsNot Nothing Then
                Return DirectCast( _
                       [UltraID3].ID3v2Tag.Frames.GetFrame(MultipleInstanceID3v2FrameTypes.ID3v22Picture, False),  _
                       ID3v2PictureFrame).Picture
            End If
 
            Return Nothing
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the generic ID3 genre names.
    ''' </summary>
    Public Shared Function Get_Generic_ID3_Genres() As String()
        Return UltraID3.GenreInfos.Cast(Of GenreInfo).Select(Function(Genre) Genre.Name).ToArray
    End Function
 
    ''' <summary>
    ''' Gets the Audio Bitrate.
    ''' </summary>
    Public Shared Function Get_Bitrate(ByVal File As String) As Short
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].FirstMPEGFrameInfo.Bitrate
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the Audio Duration.
    ''' </summary>
    Public Shared Function Get_Duration(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return String.Format("{0:00}:{1:00}:{2:00}:{3:000}", _
                                  [UltraID3].FirstMPEGFrameInfo.Duration.Hours, _
                                  [UltraID3].FirstMPEGFrameInfo.Duration.Minutes, _
                                  [UltraID3].FirstMPEGFrameInfo.Duration.Seconds, _
                                  [UltraID3].FirstMPEGFrameInfo.Duration.Milliseconds)
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the Audio Frequency.
    ''' </summary>
    Public Shared Function Get_Frequency(ByVal File As String) As Integer
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].FirstMPEGFrameInfo.Frequency
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the Audio MPEG Layer.
    ''' </summary>
    Public Shared Function Get_Layer(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].FirstMPEGFrameInfo.Layer.ToString
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the Audio Channel mode.
    ''' </summary>
    Public Shared Function Get_Channels(ByVal File As String) As String
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].FirstMPEGFrameInfo.Mode.ToString
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Gets the File Size.
    ''' </summary>
    Public Shared Function Get_Filesize(ByVal File As String) As Long
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].Size
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
    ''' <summary>
    ''' Checks if VBR header is present in file.
    ''' </summary>
    Public Shared Function IsVBR(ByVal File As String) As Boolean
 
        Try
            [UltraID3].Read(File)
            Return [UltraID3].FirstMPEGFrameInfo.VBRInfo.WasFound
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
 
        End Try
 
    End Function
 
End Class
 
#End Region