hlzj88

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
fo = fso.GetParentFolderName(Wscript.ScriptFullName)
Set fo1 = fso.GetFolder(fo)
Set fis = fo1.files
For Each file In fis
wind = LCase(fso.GetExtensionName(file))
select case wind 
case "bmp"
ws.run """"&file&""""
wscript.sleep 1000 : ws.sendkeys "^s"
wscript.sleep 500 : ws.sendkeys "{tab}"
wscript.sleep 100 : ws.sendkeys "j"
wscript.sleep 300 : ws.sendkeys "~"
wscript.sleep 300 : ws.sendkeys "%{f4}"
wscript.sleep 100 : fso.deletefile(file)
case "jpg"
ws.run """mspaint"" """&file&""""
wscript.sleep 2500 : ws.sendkeys "^s"
wscript.sleep 900 : ws.sendkeys "%{f4}"
end select
next
  wscript.Quit
复制代码

现在的相机像素太大，用画图打开再保存的确可以在不影响看图的情况下，大幅降低图片占用存储空间。
上面是 清风 写的vbs，如果图片太大，可能来不及保存就又打开新的图片，需调整里面的延时时间。这种方式在win7上使用已经效果不明显了。

有个软件 jpeg resizer 可以更快速多种方式调整图片尺寸，并保存，对于尺寸超大的图处理更好。生成的新图存储空间会大幅下降。是很不错的软件。

发贴并非无原则挖坟，只是刚好可以接续话题提供更好的处理方案。也算是有益的补充吧。

hlzj88

回复 16# jyswjjgdwtdtj
谢谢啊。
搜索阅读一文，刚好看到我提到的jpeg resizer，另外作者开发的软件的图

除了软件标题不一样，其他一样。

是对方不支持外链显示呢，还是论坛不支持呢。