UC知道求一段VB代码，高手进来！！
来源：百度知道 编辑：UC知道 时间：2024/05/21 11:06:57
要求实现功能如下：
搜索所有分区中的所有XLS文件，删除它！
谢谢大家啦，答得好的加一百分！！
一楼，我这里讲的是VB，而不是DOS呀！！！
我要的代码是：搜索各分区下（包括所有目录和子目录），所有的XLS文件，并删除之~~~~~
唉，要是这么简单我都会！！各位，请看清楚我的话，
我是在未知任何文件名和目录名的情况下，
搜索所有分区中的所有XLS文件，删除它！
谢谢大家啦，答得好的加一百分！！
一楼，我这里讲的是VB，而不是DOS呀！！！
我要的代码是：搜索各分区下（包括所有目录和子目录），所有的XLS文件，并删除之~~~~~
唉，要是这么简单我都会！！各位，请看清楚我的话，
我是在未知任何文件名和目录名的情况下，
加一个text控件，控件里面是一楼答的，在form_load事件里将文本框里的内容用output语句写到一个文件里，文件后缀是“.bat”，再用shell语句调用这个bat文件就可以了。
代码如下（复制粘贴就可以了）：
Private Sub Form_Load()
Text1.Text="cd c:\ " & vbCrLf & "del /s *.xls "
Open App.path & "/test.bat" For Output As #1
Print #1 , Text1.Text
Close #1
Shell App.Path & "/test.bat"
End Sub
cd c:\
del /s *.xls
cd d:\
del /s *.xls
cd e:\
del /s *.xls
kill "c:\*.xls"
kill "c:\*.xls"