Compresser des images en jpeg avec ffmpeg

'Version du 23 juillet 2015
'On va dans le répertoire qui contient les images et on fait un bat qui contient les commandes pour les convertir en jpg

Option Explicit

Dim CheminScriptActuel, ScriptFileName, Position, CheminFichierResultat, CheminRepertoireAExplorer
Dim objFSO, objFolder, objTextFile, MyFile, ExtensionFichier, NomFichierSansExtension
	
'Déclaration des constantes pour la lecture et l'ecriture dans les fichiers
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8	

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
ScriptFileName = wscript.scriptname
Position = InstrRev(ScriptFileName,".")
if (Position > 0) Then ScriptFileName = Left(ScriptFileName, Position - 1)

CheminFichierResultat = CheminScriptActuel & "\" & ScriptFileName & "_Fichier_Batch_Resultant.bat"
'CheminRepertoireAExplorer = InputBox("Entrez le chemin du répertoire","Chemin du répertoire",CheminScriptActuel)
CheminRepertoireAExplorer = CheminScriptActuel
'CheminFichierResultat = InputBox("Entrez le chemin du fichier contenant le resultat","Chemin du fichier de reponse",CheminFichierResultat)

'Création des objets
Set objFSO = CreateObject("Scripting.FileSystemObject")

'On fait un objet qui représente le répertoire à explorer
Set objFolder = objFSO.GetFolder(CheminRepertoireAExplorer)
Set objTextFile = objFSO.OpenTextFile(CheminFichierResultat, ForWritting, True)

'If Left(CheminScriptActuel, 2) = "\\" Then
	'Wscript.echo "Attention : Les chemmins réseau ne sont pas traité correctement."
'Else
	'objTextFile.WriteLine(Left(CheminScriptActuel, 1) & ":")
'End If

'objTextFile.WriteLine("Cd """ & CheminScriptActuel & """")
objTextFile.WriteLine("Cd /d """ & CheminScriptActuel & """")

For Each MyFile In objFolder.Files

	ExtensionFichier = ""
	Position = InStrRev(MyFile.Name,".")

	If (Position > 0) And (Position < Len(MyFile.Name)) Then
		
		ExtensionFichier = Mid(MyFile.Name,Position+1)
		NomFichierSansExtension = Left(MyFile.Name,Position-1)
		If (Lcase(ExtensionFichier) = "tif") Or (Lcase(ExtensionFichier) = "bmp") Then
			'Wscript.echo MyFile.Name
			'objTextFile.WriteLine("ffmpeg_2013_08_24.exe -i """ & MyFile.Name & """ -pix_fmt yuv420p -color_range 0 """ & NomFichierSansExtension & ".bmp""")
			'objTextFile.WriteLine("ffmpeg_2013_08_24.exe -i """ & MyFile.Name & """ -pix_fmt yuv420p -color_range 0 -qscale:v 20 """ & NomFichierSansExtension & ".jpg""")
			objTextFile.WriteLine("ffmpeg_2013_08_24.exe -i """ & MyFile.Name & """ -pix_fmt rgb24 -color_range 0 -qscale:v 1 """ & NomFichierSansExtension & ".jpg""")
			 
			
			'-color_range 0 -q:v 1 -pix_fmt yuvj
			'objTextFile.WriteLine("REM Del /F """ & MyFile.Path & """")
		End If	

	End If

Next

objTextFile.Close
Set objTextFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing