2015-05-27 4 views
-1

Я пытаюсь получить список путей для последней подкаталога.получить список последних путей подкаталога - vb.net

давайте предположу, что у меня есть на моем диске С в папке с именем «Test», как вы можете видеть на изображении enter image description here

и мне нужно, чтобы получить список всех последних подразделов только каталоги, обозначенные с красным цветом результаты должны выглядеть так: C: \ test \ 1 \ a C: \ test \ 1 \ b C: \ test \ 1 \ c C: \ test \ 1 \ d C: \ test \ 2 \ a . . . . C: \ test \ 5 \ d

это.

спасибо и наилучшие пожелания

+0

Пытались ли вы что-нибудь? –

+0

Да, я пробовал, и у меня есть все каталоги списков, мне нужен только последний уровень подкаталогов, путь не только. – HAJJAJ

+0

У меня были следующие полезные ответы: http://stackoverflow.com/questions/12332451/list-all-files-and-directories-in-a-directory-subdirectories http://stackoverflow.com/questions/ 2407986/get-all-sub-directories-from-a-given-path , но это не совсем то, что мне нужно. – HAJJAJ

ответ

0

С помощью 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 
Смежные вопросы