VB.NET – Remove Empty Folders

'Remove Empty Folders - Start
    Public Shared Sub RemoveEmptyFolders(ByVal path As String)
        Dim directory As New DirectoryInfo(path)
        For Each subDirectory As DirectoryInfo In directory.GetDirectories()
            If subDirectory.GetFiles().Length = 0 Then
                Try
                    subDirectory.Delete()
                Catch ex As Exception

                End Try
            End If
        Next subDirectory
    End Sub
    'Remove Empty Folders - Stop