搜索关键字删除文件的VBS怎么写？

搜索关键字删除文件的VBS？

或者搜索后缀名删除文件的VBS？

怎么写？

BAT文件 楼上的都太复杂！一句话搞定

del c:\*.tmp /a/s/f/q

/a/s/f/q静默删除该目录下所有文件 这句话的意思就是删除C盘下tmp文件类型的所有文件！

用正则匹配！

Dim dd,filename dd=InputBox("请输入文件名的关键字","谢谢") '根据关键字搜索文件 If dd<>"" then Set fso=WScript.CreateObject("scripting.filesystemobject") Set wmi=GetObject("winmgmts:\\.\root\cimv2") Set list=wmi.ExecQuery("select * from CIM_datafile where drive='d:'")'这个是搜索D盘的，如果想搜索其他盘改一下d： For Each uu In list Call fun(uu.name) Next MsgBox filename ,,"提示" End If Function fun(n) Set re=New RegExp '启用正则匹配 re.IgnoreCase=True re.Global=True re.Pattern=dd strvalue=re.Test(n) If strvalue Then fso.DeleteFile(n) filename=filename & n & "已经删除" & vbcrlf End if End function