2024年4月11日发(作者：)

windows画图工具mspaint图片批量无损压缩vbs

数码相机与手机拍照像素很高，照片普遍偏大，占用空间且上传诸多不便。其他软件压缩又

存在失真现象，windows画图工具mspaint重新保存后根本看不出有压缩失真现象，手工保

存费时费力，可否编程处理呢？网上基本搜不到，现偶遇到一些vbs应用，稍作修改，效果

还不错。下面vbs主要实现windows自动重复打开保存操作，所以在运行中不要点击鼠标，

以免程序中断操作。

一、打开记事本，粘贴如下程序，并保存为（mspaint批量压缩.vbs）文件：

'功能:将当前图片目录（如 F:12）下的jpg图片自动保存一次

'Set ws = CreateObject("")

' "mspaint ",1

dimfso,pic_file,directory,tmpname,current_url,new_url

setfso = CreateObject("stemObject")

'设置文件目录所在位置

current_url=inputbox("输入文件所在的目录（不支持中文目录），如D:floder（最后不要带）

")

set directory = der(current_url)

'打开画图软件

setws = Object("")

"C:",1

1000

for each pic_file in

tmpname=lcase(pic_)

ivate "paint"

200

'打开文件

ys "^o "

200

yscurrent_url&""&tmpname

200

ys "~"

200

'保存

ys "^s "

200

next

ys "%fx"

二、运行（mspaint批量压缩.vbs）文件，此程序文件不要放在磁盘根目录，需要放在下一

级目录或者桌面，360会误报。

三、复制要压缩的文件路径，填入后确认（注意不支持中文目录与中文的jpg文件），需改

为英文或数字的目录与文件。

四、运行中不要点击鼠标，以免程序中断操作。待完成后大功告成啦！！！

如果照片较大，程序出错，需把 200 改为300或更大，这个设定了打开速度

与运行速度，配置慢的电脑运行速度跟不上，需加大此值。