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
    

やっつけたのでムダな変数とかあったり無駄な処理とか有るけどとりあえずはどうにか動く。