CODE: [Copy to clipboard]
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对象保存为图片
测试系统:Windows XP SP2 WSH 5.6,只要安装了 Windows Image Acquisition 的操作系统都可以成功运行。 Windows ME XP 都是默认安装WIA的。