调用Windows自带画图工具对图片打开后保存-批量方式

likongshun

[Visual Basic] 纯文本查看 复制代码

?

1 2 3 4 5 6

set wshell = wscript.createobject("wscript.shell") wshell.run "mspaint.exe 20221124123033.jpg" WScript.Sleep 2000 wshell.SendKeys "^{s}" WScript.Sleep 2000 wshell.SendKeys "%{F4}"

网上搜到的一段vbs代码，调用Windows自带画图工具对图片打开后保存，（用于减少图片大小，tinypng网站大于5M不能压缩）麻烦改成批量读取目录下所有.jpg图片，依次打开保存。

PLA81

https://pla.lanzout.com/ivZwn14k6zuh
' 定义要批量处理的目录路径
strFolderPath = "C:\Users\Downloads\Programs\3\5\6" ' 修改为你要批量处理的目录路径

平淡最真

https://www.52pojie.cn/forum.php ... amp;highlight=jpg-c

压缩图片的方式可太多了。你这代码加上延迟 一个图片就5秒 要搞到哪天去

wyl0205

为啥用这个呢？批量压缩图片的工具有很多呢

likongshun

平淡最真 发表于 2023-8-4 01:05
https://www.52pojie.cn/forum.php?mod=viewthread&tid=1668689&highlight=jpg-c

压缩图片的方式可太多 ...

这样压缩前能打开预览一下

beef

批=处理就可以搞定

freelive

likongshun 发表于 2023-8-4 10:08
这样压缩前能打开预览一下

https://www.cnblogs.com/joeblack ... /02/27/1966288.html

vbs获取目录下的文件和文件夹集合。

平淡最真

[Asm] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16

Set objFSO = CreateObject("Scripting.FileSystemObject") strFolder = "./" Set objFolder = objFSO.GetFolder(strFolder) Set colFiles = objFolder.Files   For Each strFile in colFiles     If LCase(objFSO.GetExtensionName(strFile)) = "jpg" Then         ' 在此处执行操作，例如打印文件名或打开文件等         set wshell = wscript.createobject("wscript.shell")         wshell.run("mspaint.exe "+strFile)         WScript.Sleep 2000         wshell.SendKeys "^{s}"         WScript.Sleep 2000         wshell.SendKeys "%{F4}"     End If Next

Zhaofeiyan

Windows自带画图工具，处理单张图片很简，就是没有批量方式

likongshun

平淡最真 发表于 2023-8-5 23:53
[mw_shl_code=asm,true]Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "./"
Set ...

谢谢您的回答！