Question

会编写vbs脚本的朋友帮个忙，我想用vbs写一个当检测到E盘有EXE文件时就删除掉，没有时不提示的脚本，

但是我不会啊，有谁会的帮个忙啊，不要用bat脚本写，因为有其它的原因，我把命令提示符给禁用了，所以bat格式的文件用不了，只能用vbs格式的

Answer 1

dim exe
set open=createobject("scripting.filesystemobject")
public function delete(files)
if dir(files&"\")<>"" then open.deletefolder(files) else open.deletefile(files)
end function
public function dir(byval exist)
if open.folderexists(exist&"\") then
if open.folderexists(exist) then dir=open.getfolder(exist) else dir=""
else
if open.fileexists(exist) then dir=open.getfile(exist) else dir=""
end if
end function
'==============
'这里输入要删除的exe
exe="1.exe"
'==============
do
if dir(exe)<>"" then delete(exe) '判断文件是否存在,如果存在就删除文件
loop

'-------------------------------
'以下是结束vbs进程,用于停止检测,贴在另外一个vbs文件里就行了
Set a = GetObject("winmgmts:\\.\root\cimv2").execquery("select * from win32_process where name='wscript.exe'")
For Each i In a
i.Terminate
Next

追问

好像差点东西呀，就是删除路径呀，比如说我要删除E盘下面的所有的exe文件，

Answer 2

Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Const dir="e:\"

Do
Set fs=fso.GetFolder(dir).Files
For Each f In fs
If "exe"=fso.GetExtensionName(f.Name) Then
WScript.Echo f.Name
f.Delete(true)
End If
Next
Set fs=Nothing
WScript.sleep 1000*10 '十秒钟检测一次
loop