如何将不同功能的两段VB代码合并在一起?

来源：百度知道 编辑：UC知道 时间：2024/09/21 20:17:46
代码一：
trComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='123.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
代码二
dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "D:\*.LOG" ,true
fso.DeleteFile "c:\1.vbs" ,true
Set FSO=NoThing
WScript.quit

将上面的两段代码合并在一起，垦请高手赐教！！
第一段代码的功能是结束某一指定程序，第二段是删除该程序产生的一些无用文件，直接合并在一起运行在第二段时会出现错误信息'800a0046'没有权限，有可能是进程没有完全结束就运行了删除文件的操作，但是不知如何解决

直接合并，中间加上延时语句。
trComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='123.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
sleep 2000 '这里的SLEEP是API，需要事先声明。
dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "D:\*.LOG" ,true
fso.DeleteFile "c:\1.vbs" ,true
Set FSO=NoThing
WScript.quit

直接合并就好了 不冲突
trComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='123.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
Ne