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

            If System.IO.File.Exists(Temp_file) = True Then System.IO.File.Delete(Temp_file)
            System.IO.File.Create(Temp_file)

The process cannot access the file 'C:\Users\Administrador\AppData\Local\Temp\PlayList_temp.txt' because it is being used by another process.

  Public Sub C1Button2_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        If Not playerargs = Nothing Then
 
            Dim Str As String
            Dim Pattern As String = ControlChars.Quote
            Dim ArgsArray() As String
            Dim Temp_file As String = System.IO.Path.GetTempPath & "\PlayList_temp.txt"
            Dim objWriter As New System.IO.StreamWriter(Temp_file)
 
            Str = Replace(playerargs, " " & ControlChars.Quote, "")
            ArgsArray = Split(Str, Pattern)
 
            If System.IO.File.Exists(Temp_file) = True Then System.IO.File.Delete(Temp_file)
            System.IO.File.Create(Temp_file)
 
        For Each folder In ArgsArray
            If Not folder = Nothing Then
                Dim di As New IO.DirectoryInfo(folder)
                Dim files As IO.FileInfo() = di.GetFiles("*")
                    Dim file As IO.FileInfo
 
                For Each file In files
                    ' command to writleline
                    'Console.WriteLine("File Name: {0}", file.Name)
                    'Console.WriteLine("File Full Name: {0}", file.FullName)
                    objWriter.Write(file.FullName)
                    objWriter.Close()
                Next
            End If
            Next
 
        If randomize.Checked = True Then
                RandomiseFile(Temp_file)
        End If
 
        Process.Start(userSelectedPlayerFilePath, playerargs)
        If autoclose.Checked = True Then
            Me.Close()
        End If
        Else
        MessageBox.Show("You must select at least one folder...", My.Settings.APPName)
        End If
    End Sub

....
If Not playerargs = Nothing Then
    ....
    Dim Temp_file As String = System.IO.Path.GetTempPath & "\PlayList_temp.txt"
 
    Using objWriter As New System.IO.StreamWriter(Temp_file, false)
        For Each folder In ArgsArray
            If Not folder = Nothing Then
                Dim di As New IO.DirectoryInfo(folder)
                Dim files As IO.FileInfo() = di.GetFiles("*")
                Dim file As IO.FileInfo
                For Each file In files
                    ' command to writleline
                    'Console.WriteLine("File Name: {0}", file.Name)
                    'Console.WriteLine("File Full Name: {0}", file.FullName)
                    objWriter.Write(file.FullName)
                    ' objWriter.Close() 
                Next
            End If
        Next
    End Using ' Flush, close and dispose the objWriter
    ....