VB查找文件夹并删除文件夹及其内的文件

Question

本人用VB编写一个查找指定目录，如“d:\abc”下的所有名叫“123”的文件夹（目录abc中可能存在多个子文件夹）。
我希望将所有名叫“123”的文件夹显示在list控件中，并删除该文件夹及其里面的所有文件。
该如何编写呢？

Answer 1

Private Sub DeleteFolder()
    Dim folder As String = "d:\abc"
    Dim dir As New DirectoryInfo(folder)
    Dim subdirs() As DirectoryInfo = dir.GetDirectories("123")
    For Each subdir As DirectoryInfo In subdirs
        ListBox1.Items.Add(subdir.FullName)
        For Each file As FileInfo In subdir.GetFiles()
            file.Delete()
        Next
        subdir.Delete()
    Next
End Sub

删除文件夹及其内部文件可能会导致不可恢复的数据丢失。建议在进行测试之前备份文件