刚刚开始学vbs,花了我一个钟头时间。。。。汗一个
中间那一段就是我修改的地方,通过替换路径中的查询词为空得到的路径,然后改名SOUND 为NOsound,还是不要删除吧,或许你还有用的上的时候。。。
请教:
VBS下怎么样根据进程名获取路径?例如获取QQ.EXE的路径为 d:\qq2008\
Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("Select * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then '检测是否QQ或TM
qqpath=Replace(ps.ExecutablePath,ps.name,"")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder qqpath&"sound" , qqpath&"NOsound"
End If
Next
Last edited by exzzz on 2008-12-26 at 18:13 ]