图片尺寸转换的VBS脚本

图片尺寸转换的VBS脚本 网络上找的：

代码如下：

Set oImg = CreateObject("WIA.ImageFile")

Set oProc = CreateObject("WIA.ImageProcess")

oImg.LoadFile "Water lilies.jpg" '打开当前文件夹里的Water lilies.jpg

oProc.Filters.Add oProc.FilterInfos("Scale").FilterID '添加一个 Scale 的滤境

oProc.Filters(1).Properties("MaximumWidth")="400" '定义新图片的 宽

oProc.Filters(1).Properties("MaximumHeight")="300" '定义新图片的 高

Set oNewImg = oProc.Apply(oImg) '保存新图片到 oNewImg 对象里

oNewImg.SaveFile "New.jpg" '把oNewImg对象保存为图片