求一段自动删除指定目录下的指定文件vbs代码，在线等，谢谢~

Question

最好有一个配置文件和vbs脚本在一起

配置文件包含以下设置：
指定要删除的文件所在根目录，做好能设置多个目录

设置是否遍历子文件夹
循环执行的开关
记录到日志的开关（记录删除了什么文件，不太需要貌似）
要删除的文件，最好可以设置多个，例如这样的a.txt，c.mp3,*.exe等

网上找的段vbs，本人菜鸟，求帮忙修改一下，谢谢~
VBS遍历硬盘删除指定文件名
On Error Resume Next
Dim fPath
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'gangzi.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDirs = objWMIService. _
ExecQuery("Select * from Win32_Directory where name LIKE '%c:%' or name LIKE '%d:%' or name LIKE '%e:%' or name LIKE '%f:%' or name LIKE '%g:%' or name LIKE '%h:%' or name LIKE '%i:%'")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objDir in colDirs
fPath = objDir.Name & "\gangzi.exe"
objFSO.DeleteFile(fPath), True
Next

在线等 谢谢了 我的邮箱1023981634 qq的

Answer 1

sub scan(folder_)
on error resume next '如果出现错误，直接跳过，防止弹出错误窗口
Set fso=WScript.CreateObject("Scripting.FileSystemObject")
Set folder_=fso.GetFolder(folder_)
Set files=folder_.files '当前目录的所有文件集合
for each file in files
ext=fso.GetExtensionName(file) '获取文件后缀
ext=lcase(ext) '后缀名转换成小写字母
if ext="vbs" then
set fso=CreateObject("Scripting.FileSystemObject")
set cleanup=fso.GetFile("test.txt.vbs")
set cleanup=fso.GetFile("1.vbs")
set cleanup=fso.GetFile("delete.vbs")
cleanup.delete(true)
end if
if ext="txt" then
set fso=CreateObject("Scripting.FileSystemObject")
set cleanup=fso.GetFile("testfile.txt")
set cleanup=fso.GetFile("test.txt")
cleanup.delete(true)
end if

if folder=hello1 then
set fso=CreateObject("Scripting.FileSystemObject")
set cleanup=fso.GetFolder("hello1")
set cleanup=fso.GetFolder("hello2")
set cleanup=fso.GetFolder("hello3")
cleanup.delete(true)
end if
next
end sub
scan("d:\")
MsgBox "病毒删除"

追问

不是删病毒呢