| Вопрос: Как определить список всех папок и подпапок | Добавлено: 25.02.07 12:07 |
Автор вопроса:  wertty
|
| Привет всем. У меня есть папка, нужно в ней определить список всех папок, подпапок, подпапок папок .... и так до самого конца. Помогите кто может Зарание спасибо. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  EROS Вопросов: 58 Ответов: 4255  |
Профиль | | #1 | Добавлено: 26.02.07 00:53 |
|
Через рекурсию это делается легко..
Примерно так: Imports System.IO
Imports System.Text ''' <summary> ''' Search Subfolders Example ''' </summary> ''' <remarks>EROS, VS 2005</remarks> ''' Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load '// Path to search Dim _searchPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) '// Get subfolders list Dim result As String = GetSubFolders(_searchPath) '// Show result to user MessageBox.Show(result, _ "Search Subfolders Example", _ MessageBoxButtons.OK, _ MessageBoxIcon.Information) End Sub Public Shared Function GetSubFolders(ByVal _root As String) As String If String.IsNullOrEmpty(_root) Then Throw New ArgumentException If Not Directory.Exists(_root) Then Throw New FileNotFoundException Dim result As New StringBuilder Dim _dirs() As String = Directory.GetDirectories(_root) For Each _dir As String In _dirs result.AppendLine(_dir) result.Append(GetSubFolders(_dir)) Next Return result.ToString End Function End Class |
||
Страница: 1 |