Option Explicit Dim exePath exePath = "X:\Original\cpp\ScannerTrimmer\ScannerTrimmer\Debug\ScannerTrimmer.exe" Dim folder folder = "X:\Original\cpp\ScannerTrimmer\test\small" Dim emptyFile emptyFile = "empty.bmp" Dim files Set files = CreateObject("System.Collections.ArrayList") files.add("ayanami.bmp") Dim wsh Set wsh = Wscript.CreateObject("Wscript.Shell") Dim fso Set fso = WScript.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(folder) Then wsh.CurrentDirectory = folder Dim cmdLine cmdLine = "2>err.txt" AppendArg cmdLine, exePath AppendArg cmdLine, "/hide" AppendArg cmdLine, "/yes" AppendArg cmdLine, "/empty:" & emptyFile Dim file For Each file in files AppendArg cmdLine, file Next Dim ret ret = wsh.Run("%comspec% /c " & chr(34) & cmdLine & chr(34), 1, True) If ret <> 0 Then WScript.Echo "エラーが発生しました。err.txt を参照してください: " & ret End If Else WScript.Echo "フォルダーが見つかりません: " & folder End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub AppendArg(cmdLine, arg) If cmdLine = "" Then cmdLine = Chr(34) & arg & Chr(34) Else cmdLine = cmdLine & " " & Chr(34) & arg & Chr(34) End If End Sub