VB获取某个进程的路径代码。

Private Sub Command1_Click()
Dim ps, s
s = InputBox("请输入进程名称：", "提示", "notepad.exe")
If s = "" Then Exit Sub
For Each ps In GetObject("winmgmts://./root/cimv2:win32_process").instances_ '循环进程
If UCase(ps.Name) = UCase(s) Then
MsgBox "该进程的完整路径是：" & ps.executablepath
Exit Sub
End If
Next
MsgBox "该进程不存在！"
End Sub