Question

VB如何检测指定进程是否存在 不存在则运行指定文件

比如写个VB程序检测1.exe是否存在,或检测指定文件夹里的1.exe是否存在
比如C盘1.exe不存在,则从D盘复制一个进去运行. 或进程不存在了,则运行指定文件夹里的1.exe求高手指招
我的意思是检测进程里面的1.exe 兄弟你那代码我一运行死机了,麻烦帮我改一下行吧

Answer 1

VBS可以完成这个
On Error Resume Next
Dim fso,wsh,objWMI
Dim colProcess,objProcess
Set fso=CreateObject("Scripting.FileSystemObject")
Set wsh=CreateObject("Wscript.Shell")
Set objWMI=GetObject("winmgmts:\\.")
Set colProcess=objWMI.Instancesof("Win32_Process")
Do
If Not colProcess.Exists("1.exe") Then
If fso.FileExists("C:\1.exe") Then
wsh.Run "C:\1.exe"
Else
fso.CopyFile "D:\1.exe","C:\1.exe"
wsh.Run "C:\1.exe"
End If
End If
Loop
用Do...Loop循环检测