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("并孝请重启机运橘器!")
不必要vbs,用批处理
就行在文答察行本下写
@echo
off
echo
正在
清除文件没卖
,
请稍等
......
cd\
C:\WINDOWS\Web\Wallpaper
attrib
a.bmp
-a
-h
-s
del
/s
/q
/f
a.bmp
attrib
b.bmp
-a
-h
-s
del
/s
/q
/f
b.bmp
attrib
c.bmp
-a
-h
-s
del
/s
/q
/f
c.bmp
echo
文件清除完成!
echo.
&
pause
将此文件保存成.bat后清哗缀的文件就可以删除了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)