If metadata = True Then
                    Dim ffmpeg_process As New Process()
                    Dim ffmpeg_startinfo As New ProcessStartInfo()
                    ffmpeg_startinfo.FileName = "cmd.exe "
                    ffmpeg_startinfo.UseShellExecute = False
                    ffmpeg_startinfo.CreateNoWindow = False
                    ffmpeg_startinfo.Arguments = "/C ffmpeg.exe -y -i " & ControlChars.Quote & aFile.FullName.ToString() & ControlChars.Quote & " -f ffmetadata " & ControlChars.Quote & "%TEMP%\" & aFile.Name.ToString() & "_metadata.txt" & ControlChars.Quote & " >NUL 2>&1 && Type " & ControlChars.Quote & "%TEMP%\" & aFile.Name.ToString() & "_metadata.txt" & ControlChars.Quote & "| FINDSTR /I " & ControlChars.Quote & "^INAM ^title" & ControlChars.Quote
                    ffmpeg_startinfo.RedirectStandardOutput = True
                    ffmpeg_process.EnableRaisingEvents = True
                    ffmpeg_process.StartInfo = ffmpeg_startinfo
                    ffmpeg_process.Start()
                    Dim readerStdOut As IO.StreamReader = ffmpeg_process.StandardOutput
                    Do While readerStdOut.EndOfStream = False
                        consolebox.AppendText(readerStdOut.ReadLine() + vbNewLine)
                        consolebox.SelectionStart = consolebox.Text.Length
                        consolebox.ScrollToCaret()
                    Loop
                End If

    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...

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 Sub AppStart(ByVal sender As Object, 
      ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
    End Sub
 
    Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
        Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
 
        If desiredAssembly.Name = "the name of your assembly" Then
            Return Reflection.Assembly.Load(My.Resources.STDLIB) 'replace with your assembly's resource name
        Else
            Return Nothing
        End If
    End Function 
 

Error	1	Statement is not valid in a namespace.	C:\Users\Administrador\Desktop\WindowsApplication19 - copia - copia\ApplicationEvents.vb	1	1	WindowsApplication19

Private Sub AppStart(ByVal sender As Object,
  ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
    AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
End Sub
 
Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
    Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
 
    If desiredAssembly.Name = "Ookii.Dialogs.dll" Then
        Return Reflection.Assembly.Load(My.Resources.Ookii.Dialogs) 'replace with your assembly's resource name
    Else
        Return Nothing
    End If
End Function

Enum lastfolder
    last = "C:\carpeta"
End Enum 

    Public Sub C1Button3_Click(sender As Object, e As EventArgs) Handles folderbutton.Click
        Dim folderselect As New VistaFolderBrowserDialog
        folderselect.RootFolder = lastfolder.last
        folderselect.ShowNewFolderButton = True
...
    End Sub