Question

如何用VBS删除指定文件

比如我要删除%windir%\system32\test.inf(是否可用%windir%？）

该怎么写VBS角本？
请详细写出来，我对VBS点都不了解！

谢谢

－－－－－－－－－－－－－－－－－－－－
这是我在网上下的，也可以在这里修改。
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("确定要清除？")
On Error Resume Next
Set oFSO=CreateObject("Scripting.FileSystemObject")
Set f1=fso.GetFile("%windir%\system32\test.inf")
f1.del
Set oFSO=Nothing
WSH.POPUP("请重启机器!")

只要测试通过，马上给分！
zhb0813，用你的方法运行不起啊！！

在你那里测试通过了吗？

运行VBS文件有其它条件吗？

Answer 1

第一次修改：
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("请重启机器!")

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
测试成功。。。

Answer 2

Set fso=CreateObject("Scripting.FileSystemObject")
Set f1=fso.GetFile("c:\windows\system32\test.inf")
v=msgbox("★文件大小为:"&f1.size&"字节★"&vblf&"!!!是否删除?",vbyesno,"☆by hkmfk")
if v=vbno then
msgbox "删除被取消!"
wscript.quit
end if
fso.deletefile f1
Set FSO=Nothing
'--------------------------------------------------------------
%windir%\system32\test.inf 不能有VBScript不支持环境变量