[问题求助] 求助 vbs调用Windows自带画图工具对图片打开后保存-批量方式

likongshun

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

求助高手，如何将以上用画图工具打开图片并保存的代码，做成遍历文件夹文件，循环执行的形式。

likongshun

能减少文件大小

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
复制代码