如何用VBA代码用画图批处理打开某文件夹所有图片并保存

ejun0111

想用windows 自带的画图“C:\WINDOWS\system32\mspaint.exe” 打开某文件夹里的所有jpg图片后，不作任何操作就再自动保存一下，用VBA如何写代码
请大侠指教

todaynew

Function OpenFileList(FolderName As String,Pname as String)
  '功能:打开文件夹中的所以文件
  '参数：FolderName--源文件夹名,Pname -- 程序文件名
  Dim myFSO As New FileSystemObject
  Dim myFolder As Folder
  Dim myfile As File
  If myFSO.FolderExists(FolderName) = True Then
      Set myFolder = myFSO.GetFolder(FolderName)
      For Each myfile In myFolder.Files
          Call Shell(Pname & " " & myFile.FullName)
      Next myfile
  End If
End Function

ejun0111

谢谢版主 模块在编译的时候错误 ,提示“ .FullName”  方法和数据成员未找到，已经引用了Windows Script Host Object Model 类模块了 是否还需要引用 其它？另外代码中打开后保存与关闭没动作{:soso_e113:}

t小宝

楼主想要干什么？

ejun0111

通过画图打开－保存后 使文件夹内的图片容量变小

todaynew

ejun0111 发表于 2013-5-18 10:00
谢谢版主 模块在编译的时候错误 ,提示“ .FullName”  方法和数据成员未找到，已经引用了Windows Script Ho ...

引用 Microsoft Scripting Runtime

ejun0111

引用都已用了还是不行，还是提示“ .FullName”  方法和数据成员未找到 ，在自动下拉里myFile.FullName 没有这属性

p51219

好好好呵呵呵呵呵