返回日期文件夹中的子文件夹名称

Question

我试图撤回位于日期文件夹结构中的目录列表。在每个过时的文件夹中可以有许多“工作”。但是我只想返回第一级文件夹的名称

以下代码到达文件夹详细信息的正确级别，但结果显示完整路径

 For Each Dir As String In System.IO.Directory.GetDirectories("c:\Working")
        Dim dirInfo As New System.IO.DirectoryInfo(Dir)
        For Each sDir As String In System.IO.Directory.GetDirectories(dirInfo.ToString)
            Dim sdirInfo As New System.IO.DirectoryInfo(sDir)
            chkImpExp.Items.Add(sDir)
        Next
    Next

这将显示以下内容

但是我只想在第3个反斜杠右边显示目录名称（Westdale - 28023 - Cash + Spirit）

希望这是足够的信息。

非常感谢

Answer 1

尝试：

chkImpExp.Items.Add(sdirInfo.Name)

Answer 2

' renamed Dir to d as Dir() is already a function in Microsoft.VisualBasic
For Each d In System.IO.Directory.GetDirectories("c:\Working")
    For Each sDir In System.IO.Directory.GetDirectories(d)
        Dim di = New DirectoryInfo(sDir)
        chkImpExp.Items.Add(di.Name())
    Next
Next