Public Sub MediaInfoWorkWithFilesInDir(ByVal aDir As DirectoryInfo)
 
        Dim aFile As FileInfo
        For Each aFile In aDir.GetFiles()
            If accepted_extensions.ToLower.Contains(aFile.Extension.ToLower) Then
 
                MI.Open(aFile.FullName)
 
                Dim Pos As Integer = 0
                To_Display = Nothing
                While Pos < MI.Count_Get(StreamKind.Audio)
                    To_Display += "| " + MI.Get_(StreamKind.Audio, Pos, "Format")
                    System.Math.Max(System.Threading.Interlocked.Increment(Pos), Pos - 1)
                End While
 
                consolebox.AppendText("Processing: " + aFile.ToString() + To_Display.ToString() + vbNewLine)
                consolebox.SelectionStart = consolebox.Text.Length
                consolebox.ScrollToCaret()
 
            End If
        Next
    End Sub
 

 
Dim accepted_extensions As String = ".264 .3gp .asf .asx .avi .avc .bsf .bdmv .divx .dv .evo .f4v .flv .hdmov .m1v .m2t .m2ts .m2v .m4v .mkv .mov .mp4 .mpeg .mpg .mpv4 .mts .ogm .ogv .qt .rmvb .swf .ts .vob .webm .wmv"
 
    Public Sub PlaylistsWorkWithFilesInDir(ByVal aDir As DirectoryInfo)
        consolebox.AppendText("Processing: " + aDir.ToString() + vbNewLine)
        consolebox.SelectionStart = consolebox.Text.Length
        consolebox.ScrollToCaret()
        Dim aFile As FileInfo
        For Each aFile In aDir.GetFiles()
            If accepted_extensions.ToLower.Contains(aFile.Extension.ToLower) Then
                Using writer As StreamWriter = New StreamWriter(aFile.DirectoryName.ToString() & "\" & aDir.Name & ".m3u", True, System.Text.Encoding.UTF8)
                    writer.WriteLine(aFile.FullName.ToString())
                End Using
            End If
        Next
    End Sub
 

If IO.FileType(aFile) = "VideoFile" Then...

    Private Function attrib() As Boolean
        consolebox.AppendText(vbNewLine + "[+] Deleting the attributes of the files..." + vbNewLine + vbNewLine)
        Dim attrib_process As New Process()
        Dim attrib_startinfo As New ProcessStartInfo()
        Dim attrib_args As String = videofolder
        attrib_startinfo.FileName = "cmd.exe "
        attrib_startinfo.UseShellExecute = False
        attrib_startinfo.CreateNoWindow = True
        attrib_startinfo.Arguments = "/C dir /B /AD C:\"
        attrib_startinfo.RedirectStandardOutput = True
        attrib_process.EnableRaisingEvents = True
        attrib_process.StartInfo = attrib_startinfo
        attrib_process.Start()
        Dim readerStdOut As IO.StreamReader = attrib_process.StandardOutput
        Do While readerStdOut.EndOfStream = False
            consolebox.AppendText(readerStdOut.ReadLine() + vbNewLine)
            consolebox.SelectionStart = consolebox.Text.Length
            consolebox.ScrollToCaret()
        Loop
        consolebox.AppendText(vbNewLine + "[OK] attributes deleted!" + vbNewLine + vbNewLine)
    End Function

Me.consolebox.Text = "Deleting the attributes of the files..."

   Private Function attrib() As Boolean
        Me.consolebox.Text = "Deleting the attributes of the files..."
        Dim attrib_process As New Process()
        Dim attrib_startinfo As New ProcessStartInfo()
        Dim attrib_args As String = videofolder
        attrib_startinfo.FileName = "cmd.exe "
        attrib_startinfo.UseShellExecute = False
        attrib_startinfo.CreateNoWindow = True
        attrib_startinfo.Arguments = "/C PUSHD " & ControlChars.Quote & videofolder & ControlChars.Quote & " & Attrib -A -R -S -H -I /S *.* & attrib +H /S *.ico >nul & attrib +H -R /S *.ini >nul"
        attrib_startinfo.RedirectStandardOutput = True
        attrib_process.EnableRaisingEvents = True
        attrib_process.StartInfo = attrib_startinfo
        attrib_process.Start()
        Dim readerStdOut As IO.StreamReader = attrib_process.StandardOutput
        Do While readerStdOut.EndOfStream = False
            output = output + readerStdOut.ReadLine()
        Loop
        Me.consolebox.Text = "This is the result of the command:" + output
    End Function

 attrib_startinfo.Arguments = "/C 
Echo linea 1 &
(Echo linea2
Echo linea 3)
"