Question

VBS判断进程运行

我想要VBS自动运行某个程序，并且把某个文件复制到另一个文件夹，但需要在这个程序运行完后再执行复制，因为这个程序就是升级要复制的文件，要等它升级完后才能执行复制：
例：

Set objShell = CreateObject("Wscript.Shell")
objshell.run """C:\DOWN.exe"""

（中间加个判断DOWN.exe进程是否停止，如果停止就运行下面的代码）

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set c=fso.getfile("C:\a.txt")
c.copy("E:\a.txt")

Answer 1

这个容易Set objShell = CreateObject("Wscript.Shell")
objshell.run """C:\DOWN.exe"""
Do
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set list=wmi.ExecQuery("select * from win32_process where name='DOWN.exe'")
If list.count=0 Then '中间加个判断DOWN.exe进程是否停止，如果停止就运行下面的代码
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set c=fso.getfile("C:\a.txt")
c.copy("E:\a.txt")
End If
WScript.Sleep 2000
loop