VBS 使用 画图 mspaint 把图片文件另存为 缩小图片文件的体积

转自   http://kongjian.baidu.com/sunch721521/blog/item/12cdd633ab47e34bac4b5f20.html

 

'注：~代表回车，%代表alt，^代表ctrl，ctrl+←代表删除...
'将以下代码拷贝粘贴到记事本，修改图片路径，保存为?.vbs
'数码相机照出的图片占用空间很大，用画图程序打开图片再另存为，图像效果不变却小了不少哦。
'这个VBS可以把图片批量另存为
'功能:将当前图片目录（如 E:\graph）下的jpg图片另存为到新目录（如 e:\new_graph）下，保持图片文件名字不变
'Set ws = CreateObject("Wscript.Shell")
'ws.run "mspaint zsc.jpg",1

dim fso,pic_file,directory,tmpname,current_url,new_url
set fso = CreateObject("Scripting.FileSystemObject")
'设置文件目录所在位置
current_url=inputbox("输入文件所在的目录，如D:\floder（最后不要带\）")
set directory = fso.getfolder(current_url)
new_url=inputbox("输入另存为的目录，如D:（最后不要带\）")
'打开画图软件
set ws = WScript.CreateObject("WScript.Shell")
ws.Run "C:\WINDOWS\system32\mspaint.exe",1
WScript.Sleep 1000

for each pic_file in directory.files
tmpname=lcase(pic_file.name)
ws.AppActivate "paint"
WScript.Sleep 10
'打开文件
ws.Sendkeys "^o "
WScript.Sleep 10
ws.SendKeys current_url&"\"&tmpname
WScript.Sleep 10
ws.SendKeys "~"
WScript.Sleep 10
'另存为
ws.Sendkeys "%fa"
WScript.Sleep 10
ws.SendKeys new_url&"\"&tmpname
WScript.Sleep 10
ws.SendKeys "~"
WScript.Sleep 10
ws.SendKeys "y"
next
ws.Sendkeys "%fx"