Public Class convertir_en_m4v
    Private Sub convertir_en_m4v_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        BackColor = Form1.BackColor
        Button1.BackColor = BackColor
        ForeColor = Form1.ForeColor
        Button1.ForeColor = ForeColor
        If FolderBrowserDialog1.ShowDialog = 1 Then

        Else
            Close()
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim filechange As String = ""
        For Each fichier As String In IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath)
            Dim info As New IO.FileInfo(fichier)
            My.Computer.FileSystem.RenameFile(FolderBrowserDialog1.SelectedPath & "\" & info.Name, info.Name.Replace(".mp4", ".m4v"))
            filechange = filechange & vbNewLine & info.Name
        Next
        MsgBox("Le convertion des fichier: " & vbNewLine & filechange & vbNewLine & vbNewLine & "est terminer", MsgBoxStyle.Information)
        Close()
    End Sub
End Class