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

答案:3 悬赏:10 手机版

解决时间 2021-06-09 14:52

提问者网友：最爱你的唇
2021-06-09 02:17

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

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

怎么写？

最佳答案

五星知识达人网友：舍身薄凉客
2021-06-09 02:35

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

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

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

全部回答

1楼网友：举杯邀酒敬孤独
2021-06-09 04:09

全盘搜索用脚本很慢的，为什么不考虑用系统自带的搜索功能，本身已经很方便的

2楼网友：上分大魔王
2021-06-09 03:52

用正则匹配！

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息