'************************************************************************************************
For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
If LCase(ps.Name) = "ho.exe" Then
hoCMD =
msgbox hoCMD                                     ' 提示为"c:\123\ho.exe"
tmp = Replace(hoCMD, Chr(34), Space(1))
msgbox hoCMD                                     ' 提示为c:\123\ho.exe
UIN1 = InStr(tmp, "ho.exe") - 1
nf = Mid(tmp, 1, UIN1)
msgbox nf                                    ' 提示为 "c:\123\"

'************************************************************************************************
上面是得到ho.exe的路径，可路径是c:\123\ 而不是我需要的c:\\123\
有什么办法可以实现，我是菜鸟，谢谢大侠指教！

'************************************************************************************************ For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_ If LCase(ps.Name) = "ho.exe" Then hoCMD = ps.commandline msgbox hoCMD ' 提示为"c:\123\ho.exe" tmp = Replace(hoCMD, Chr(34), Space(1)) msgbox hoCMD ' 提示为c:\123\ho.exe UIN1 = InStr(tmp, "ho.exe") - 1 nf = Mid(tmp, 1, UIN1) nf=replace(nf,"\","\\") msgbox nf ' 提示为 "c:\\123\\" '************************************************************************************************