3个回答
展开全部
第一次修改:
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除?")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
Set f1=ofso.GetFile("c:\windows\system32\test.inf")
oFSO.DeleteFile f1
Set oFSO=Nothing
WSH.POPUP("请重启机器!")
第二次修改
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除?")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile("c:\windows\system32\test.inf")
Set oFSO=Nothing
WSH.POPUP("请重启机器!")
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除?")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
Set f1=ofso.GetFile("c:\windows\system32\test.inf")
oFSO.DeleteFile f1
Set oFSO=Nothing
WSH.POPUP("请重启机器!")
第二次修改
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除?")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile("c:\windows\system32\test.inf")
Set oFSO=Nothing
WSH.POPUP("请重启机器!")
展开全部
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "c:\windows\system32\cmd.exe"
WshShell.AppActivate "c:\winnt\system32\cmd.exe"
WScript.Sleep 600
WshShell.SendKeys "delete d:\aa\bb.exe"
WshShell.SendKeys "{ENTER}"
给最佳答案
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "c:\windows\system32\cmd.exe"
WshShell.AppActivate "c:\winnt\system32\cmd.exe"
WScript.Sleep 600
WshShell.SendKeys "delete d:\aa\bb.exe"
WshShell.SendKeys "{ENTER}"
给最佳答案
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("D:\aa\bb.exe")
objFSO.DeleteFile("D:\aa\bb.exe")
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |