'Static code module FFMPeg_Utils
Sub Process_Globals
Private fx As JFX
End Sub
Public Sub Convert(PathTOFFMpeg As String, SourcePath As String,SourceFile As String,TargetPath As String,TargetFile As String)
Dim Args As List
Args.Initialize
Args.AddAll(Array("-y","-i"))
Args.AddAll(Array(File.Combine(SourcePath,SourceFile),File.Combine(TargetPath, TargetFile)))
Dim Sh As Shell
Sh.Initialize("SH",PathTOFFMpeg,Args)
Sh.Run(-1)
Wait For SH_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
End Sub