24 lines
1.0 KiB
VB.net
24 lines
1.0 KiB
VB.net
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 |