VB.NET 怎样删除指定文件夹上所有空文件夹

VB.NET 怎样删除指定文件夹下所有空文件夹
如题，例如我想删除"D:\a"文件夹下的所有空文件夹，包含很多子文件夹下的空文件夹，请问应该怎样写呢？

[解决办法]

VB.NET code

    Private Sub DeleteAllNothingDir(ByVal path As String)        Dim strDir As String() = System.IO.Directory.GetDirectories(path) '目录        Dim strFile As String() = System.IO.Directory.GetFiles(path) '文件        Dim i As Integer        If strDir.Length > 0 Then            For i = 0 To strDir.Length - 1                If System.IO.Directory.GetDirectories(strDir(i)).Length > 0 Then                    DeleteAllNothingDir(strDir(i))                End If                If System.IO.Directory.GetDirectories(strDir(i)).Length = 0 And System.IO.Directory.GetFiles(strDir(i)).Length = 0 Then                    My.Computer.FileSystem.DeleteDirectory(strDir(i), FileIO.DeleteDirectoryOption.DeleteAllContents)                End If            Next        End If    End Sub