如何用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

todaynew

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

引用 Microsoft Scripting Runtime