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)
"

    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