epsファイルをまとめてjpgにするVBスクリプト
必要に迫られて作った。ImageMagickが必要で、インストール時に"ImageMagick Com Component"だか何だかを追加してインストールする必要がある。
Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") Dim fs Set fs = CreateObject("Scripting.FileSystemObject") ' On Error Resume Next Dim folder Set folder = fs.GetFolder(".") Dim fileCollection Set fileCollection = folder.Files Dim fileObject Dim targetFile Dim cmd Dim original Dim target For Each fileObject in fileCollection Wscript.echo fileObject.Name If (Right(fileObject.Name,3) = "eps" ) Then original = fileObject.Name target = "1.jpg" set magick = CreateObject("ImageMagickObject.MagickImage.1") status = magick.Convert("-colorspace","RGB", original, target) Set magick = Nothing If fs.FileExists("1.jpg") Then '' On Error Resume Next Set targetFile = fs.GetFile("1.jpg") targetFile.Move Replace( fileObject.Name,"eps","jpg") End If End If Next
やっつけたのでムダな変数とかあったり無駄な処理とか有るけどとりあえずはどうにか動く。