获取最后一个子目录路径的列表-vb.net

获取最后一个子目录路径的列表-vb.net,.net,vb.net,.net,Vb.net,我正在尝试获取最后一个子目录的路径列表 假设我的C驱动器上有一个名为“Test”的目录,如图所示 我只需要得到最后一个子目录的列表,上面用红色标记。结果应该是这样的: C:\test\1\a C:\test\1\b C:\test\1\C C:\test\1\d C:\test\2\a . . . . C:\test\5\d 就是这样 感谢并致以最诚挚的问候在System.Io的帮助下,您可以执行此操作。请考虑以下代码: Dim di As DirectoryInfo = New Di

我正在尝试获取最后一个子目录的路径列表

假设我的C驱动器上有一个名为“Test”的目录,如图所示

我只需要得到最后一个子目录的列表,上面用红色标记。结果应该是这样的: C:\test\1\a C:\test\1\b C:\test\1\C C:\test\1\d C:\test\2\a . . . . C:\test\5\d

就是这样


感谢并致以最诚挚的问候

在System.Io的帮助下,您可以执行此操作。请考虑以下代码:

    Dim di As DirectoryInfo = New DirectoryInfo("D:\folder")
    Dim directories() As DirectoryInfo = di.GetDirectories("*", SearchOption.AllDirectories)
    Dim ListOfEmptyDirectory As New List(Of String)
    For Each dir As DirectoryInfo In directories
        If dir.GetDirectories("*", SearchOption.AllDirectories).Count = 0 Then
            ListOfEmptyDirectory.Add(dir.FullName)'Gives the List of Last sub directories in the given folder;
        End If
    Next
如果希望最后一个子目录列表为空,请按如下所示更改条件

   If dir.GetDirectories("*", SearchOption.AllDirectories).Count = 0 And dir.GetFiles().Count() = 0 Then
      ListOfEmptyDirectory.Add(dir.FullName)
   End If

你试过什么吗?是的,我试过了,我得到了所有的列表目录,我只需要最后一级的子目录路径。我有这些有用的答案:但这并不完全是我需要的。告诉我们你试过什么。此外,还可以说第二个链接为您提供了一个答案,您只需要阅读答案代码正在做什么