vb.net获取程序目录下所有子目录

vb.net获取程序目录下所有子目录的代码如下

    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        Dim jPath As New DirectoryInfo(Directory.GetCurrentDirectory)
        For Each item As DirectoryInfo In jPath.GetDirectories
            MsgBox(item.Name)
        Next
    End Sub