07/03/31 04:33:06
私が書いたので良ければ・・・
>>130と同じ機能だけど、書き方がちょっと違う。
Dim objFS
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists("ResultV") Then
Dim objFolder
Set objFolder = objFS.GetFolder("ResultV")
objFS.CreateFolder("ResultVimg")
'Start GNUPLOT
Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("C:\Program Files\gnuplot\bin\wgnuplot_pipes.exe")
strID = objExec.ProcessID
Do While objShell.AppActivate(strID)
WScript.Sleep 500
Loop