Программирование
Веб программирование

Узнанем имена всех папок в папкев в vb.net

 
 

Получение имен всех папок аналогично получению имен всех файлов(предыдущий шаг), но только надо пользоваться не методом GetFiles, а методом GetDirectories.
На форме размести метку(сделай ее по шире, и по выше) и кнопку. Вот код:

Imports System
Imports System.IO

Public Class Form1
Inherits System.Windows.Forms.Form

Windows Form Designer generated code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Folder As Directory ' Объявляем переменную Folder для работы с папками 
Dim Folders() As String ' Объявляем массив Folders для хранения строк. 
Dim i As Integer

Label1.Text = "" ' Очищаем текст в метке 

Folders = Folder.GetDirectories("c:") ' В массив Folders записываются все папки содержащиеся в диске C:
For i = 0 To Folders.Length - 1 ' Массив длится столько, сколько папок в диске C: 
Label1.Text = Label1.Text & Folders(i) & vbCrLf ' Извлекаем из массива Folders имена всех папок, и записываем их в метку. 
Next i
End Sub
End Class 

Исходник


Есть вопросы? Спроси на нашем форуме!!
начинающий [15.06.2011 04:18]

лучше Textbox со ScrollBarVertical + MultiLine = True и [ReadOnly = True]-необъязательно, чем метка

Anderis [20.11.2012 14:19]

Лучше конструкцию
for i = 0
.......
Next i
Взять в
Try
....
Catch ex As Exception
end Try
потому что если папка скрытая или только для чтение возникает ошибка.

Выводить результат лучше в Listbox
легче в дальнейшем что-то делать с полученными списками.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.