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

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

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

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

函数：ShowFileList
功能：获取指定的文件或文件夹到ListBox列表中\n'
函数参数：\n'Folderspec：文件夹路径名称\n'fExp：后缀名(扩展名)，为空“”时代表所有文件夹及文件，指定文件格式直接写文件后缀名，如：exe，“.”只获取所有文件名称，“\”只获取所有文件夹名称。