Imports System.Threading Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim FileName1 As String = System.IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName) 'Get only Flie name without extension Dim FileName2 As String = OpenFileDialog1.FileName Dim programName As String = "ffmpeg.exe" System.Diagnostics.Process.Start(Application.StartupPath & "\" & programName) Process.Start("cmd.exe", "/k ffmpeg -i " & FileName2 & " -c:v libx264 " & FileName1 & ".mp4") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim R1 As DialogResult = OpenFileDialog1.ShowDialog() Dim path1 As String = OpenFileDialog1.FileName 'Get part file Dim FileName1 As String = System.IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName) 'Get only Flie name without extension If R1 = Windows.Forms.DialogResult.OK Then txt1.Text = path1 End If Button1.Enabled = True TextBox1.Text = FileName1 End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Button1.Enabled = False End Sub Private Sub bFolder_Click(sender As Object, e As EventArgs) Handles bFolder.Click Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.MyComputer)) End Sub End Class
/c
/k
Process.Start("cmd.exe", "/k ffmpeg -i " & FileName2 & " -c:v libx264 " & "Down\\" & FileName1 & ".mp4")
for %i in (*.ts) do ffmpeg %i -cv libx264 %~ni.mp4
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)