[文件操作] [已解决]批处理如何将bmp图片文件另存为/转换成jpg图片文件

//&cls&dir /b *.bmp|cscript -nologo -e:jscript "%~f0"&pause&exit/b

var files = WScript.StdIn.ReadAll().split(/\r\n/);
for (var i=0; i<files.length; i++){
    var img = new ActiveXObject('WIA.ImageFile');
    var imgps = new ActiveXObject('WIA.ImageProcess');
    img.LoadFile('.\\'+files[i]);
    imgps.Filters.Add(imgps.FilterInfos('Convert').FilterID);
    imgps.Filters(1).Properties('FormatID').Value = '{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}';
    var img = imgps.Apply(img);
    img.SaveFile('.\\'+files[i].replace(/(.+)\.[^\.]+$/,'$1')+'.jpg');
}
复制代码

'Convert bmp file(batch) type to JPG
'http://www.experts-exchange.com/questions/21969652/Convert-bmp-file-batch-type-to-JPG.html
' File Name:BmpToJpg.vbs
Const xlHtml = 44: Dim Args, pPath
Set Args = WScript.Arguments
If Args.Count <> 1 Then WScript.Quit
If LCase(Right(Args(0), 4)) <> ".bmp" Then WScript.Quit
pPath = WScript.ScriptFullName & "\..\"
With CreateObject("Excel.Application")
	With .Workbooks.Add(1)
		With .ActiveSheet
			.Pictures.Insert(Args(0)): .Shapes(1).Cut
			.PasteSpecial "Picture (JPEG)"
		End With
		.SaveAs pPath & "Temporary.htm", xlHtml: .Close False
	End With
	.Quit
End With
With CreateObject("Scripting.FileSystemObject")
	.CopyFile pPath & "Temporary.files\image001.jpg", _
	Replace(oPath, ".bmp", ".jpg", 1, -1, 1)
	.DeleteFile pPath & "Temporary.htm"
	.DeleteFolder pPath & "Temporary.files", True
End With
复制代码

@echo off
rem win7及以上系统运行
powershell -c "[System.Reflection.Assembly]::LoadWithPartialName('System.Drawing');dir *.bmp|%%{$image=[System.Drawing.Image]::FromFile($_.FullName);$image.Save($($_.BaseName+'.jpg'), [System.Drawing.Imaging.ImageFormat]::Jpeg);$image.Dispose()}"
pause
复制代码