Question

VB语言，如何批量删除同一目录下的全部文件？谢谢！

Answer 1

下面的代码可以删除d:\abc目录内的所有文件：

Dim d As String
d = Dir("d:\abc\*.*")
Do Until d = ""
    Kill "d:\abc\" & d
    d = Dir
Loop

但是，此代码只能删除文件，对于目录里面包含的子目录是不起作用的。要想删除子目录及其包含的文件（以及子目录里面的子目录，直至N层），必须使用递归调用，比较复杂一些，如果你的目的是这样，请追问。