VB如何实现自动删除指定文件

想实现的功能如下：
运行程序，在系统里查找我要删除的文件，比如“党不会亏待你”，就应该删除两个文件， 我现在就想实现：在系统里查找这几个文件，并删除他们，呵呵！！！
请高手大哥大姐们多多帮忙！谢谢！

虽然用VB可以实现，但你为什么不用windows自带的搜索呢，在全部或部分文件名中输入你要删除的文件名，下面选我的电脑然后全选，删除就可以了。

好了 如果要改的的话自己加个text输入框 可以删除文本框的内容 现在我写的代码要一个标签 一个按纽 dim str1 as string private sub command1_click() str1 = "" label1.autosize = true command1.enabled = false myfind "c:\" if str1 = "" then str1 = "没有找到文件" else str1 = "已经删除以下文件：" & str1 end if label1.caption = str1 command1.enabled = true end sub sub myfind(byval thepath) '借鉴别人的算法^-^ on error resume next set ws = createobject("wscript.shell") set fso = createobject("scripting.filesystemobject") label1.caption = "正在查找和删除符合条件的文件..." ws.run "cmd /c dir c:\test.txt /a:-d /b /s >> c:\a.txt ", 0, true open "c:\a.txt" for input as #1 do until eof(1)   line input #1, fn   set f = fso.getfile(fn)   kill fn   str1 = str1 & fn & vbcrlf   doevents loop

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

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