| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 491 人关注过本帖
标题:很简单的问题请教
只看楼主 加入收藏
我是菜菜鸟
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-8-22
收藏
 问题点数:0 回复次数:1 
很简单的问题请教
'************************************************************************************************
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\
有什么办法可以实现,我是菜鸟,谢谢大侠指教!
2005-08-22 23:19
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
'************************************************************************************************ 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\\" '************************************************************************************************

快上课了……
2005-08-23 18:16
快速回复:很简单的问题请教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033238 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved