Dim InputFile As String = File.Combine(File.DirInternal, "samsung-uhd-dubai.mkv")
Dim OutputFilePath As String = File.Combine(File.DirInternal, "2.mp4")
Dim FFmpegCommand As String = "-i " & InputFile & " -vcodec libx264 -vf scale=1280:720 " & OutputFilePath