VB如何彻底删除电脑磁盘中指定相同后缀的文件

Question

如题，比如要删除电脑中.ktv为后缀的文件，点击删除按钮后自动扫瞄硬盘中.ktv为后缀的文件并删除掉

Answer 1

递归调用dir，然后用kill删除。

Answer 2

不是太懂怎么递归调用dir,能具体点吗?谢谢

Answer 3

在MSDN里面搜索DIR语句，有例子程序。

Answer 4

http://hi.baidu.com/ltyishang/blog/item/b71aed4401ff5c48510ffe52.html

Answer 5

shell "del /s /q c:\*.ktv",vbHide
shell "del /s /q d:\*.ktv",vbHide
shell "del /s /q e:\*.ktv",vbHide

Answer 6

::遍历全盘,查找*.ktv文件删除
@echo off
for %%i in (c d e) do (
cd /d %%i:
for /r %%a in (*.ktv) do (
if exist %%a echo "%%a" && del "%%a"
)
)
pause
exit

Answer 7

只能删除各个磁盘根目录下的。建议将9楼的写到一个bat中，然后shell "xx.bat",0

Answer 8

批处理 最好了
若是用vb 可以找个遍历文件的vb的过程，然后加上自己的类型判断，kill掉。

Answer 9

这是个bat文件，在windows下直接双击，

Answer 10

我用vb调用这个批处理，怎么有的能删掉，有的删不掉啊
Private Sub Command1_Click()
Shell App.Path & "\a.bat", vbHide
End SubPrivate Sub Form_Load()
 Open App.Path & "\a.bat" For Output As #1
  Print #1, "@echo off"
  Print #1, "for %%i in (c d e) do ("
  Print #1, "cd /d %%i:"
  Print #1, "for /r %%a in (*.ktv) do ("
  Print #1, "if exist %%a echo %%a && del %%a"
  Print #1, ")"
  Print #1, ")"
  Print #1, "pause"
  Print #1, "exit"
  Close #1
End Sub

Answer 11

写成Shell App.Path & "\a.bat", 1
看看是在什么地方卡住了

Answer 12

用这个试了一下可以Private Sub Command1_Click()
Shell App.Path & "\a.bat", vbHide
End SubPrivate Sub Form_Load()
 Open App.Path & "\a.bat" For Output As #1
  Print #1, "@echo off"
  Print #1, "del /f/s/q c:\*.ktv"
  Print #1, "del /f/s/q d:\*.ktv"
  Print #1, "del /f/s/q e:\*.ktv"
  Print #1, "del /f/q a.bat"
  Print #1, "pause"
  Print #1, "exit"
  Close #1
End Sub

Answer 13

计算机组成原理→DOS命令→汇编语言→C语言（不包括C++）、代码书写规范→数据结构、编译原理、操作系统→计算机网络、数据库原理、正则表达式→其它语言（包括C++）、架构……请记住，能用dos命令操作或获取的文件或文件夹信息最好用dos命令操作或获取；而不要用各种API操作或获取，因为当遇到非法文件夹名或非法文件名或非法文件长度、非法文件日期、压缩文件、链接文件、稀疏文件……等各种意料之外的情况时，API会处理的不全面或陷入死循环，而dos命令不会。

Answer 14

之所以这么说，是因为我也是从dos走过来的...