Получить список папок в заданной директории и вывести в ListBox

Imports System.IO
....
  Dim D As Directory
  D = New Directory("Some\Path")
 
Мы создали объект класса Directory и передали ему путь к папке
 
Как получить свойства папки?
 
Класс Directory позволяет получить разнообразную информацию о папке. Смотрите пример:
 
[VBNET]Imports System
Imports System.IO
 
Public Class Properties
 
Shared Sub Main()
 
Dim D As Directory
D = New Directory("C:\WinNT")
 
Console.WriteLine("Доступ?: {0}", D.Exists)
Console.WriteLine("Дата создания: {0}", D.Creationtime)
Console.WriteLine("Дата последнего обращения: {0}", D.Lastaccesstime)
Console.WriteLine("Дата последней модификации: {0}", D.Lastwritetime)
Console.WriteLine("Имя папки: {0}", D.Name)
Console.WriteLine("Родительский каталог: {0}", D.Parent.Fullname)
End Sub

Imports System
Imports System.IO
 
Public Class CreateFolders
  Shared Sub Main()
    Dim D As Directory
    D = New Directory("C:\WinNT")
 
    D.CreateSubDirectory("Test1")
    D.CreateDirectory("C:\WinNT\Test2")
  End Sub
End Class

Imports System
Imports System.IO
 
Public Class TreeDir
  Shared Sub Main()
    Dim D As Directory
    Dim Darr() As Directory
    Dim I As Integer
 
    D = New Directory("C:\WinNT")
    Darr = D.GetDirectories()
    For I = 0 To Darr.Length - 1
      Console.WriteLine((Darr(I)).FullName)
    Next
  End Sub
End Class

Imports System
Imports System.IO
 
Public Class TreeFile
  Shared Sub Main()
    Dim D As Directory
    Dim Farr() As File
    Dim I As Integer
 
    D = New Directory("C:\WinNT")
    Farr = D.GetFiles()
    For I = 0 To Farr.Length - 1
      Console.WriteLine((Farr(I)).FullName)
    Next
  End Sub
End Class

Imports System
Imports System.IO
 
Public Class Delete
  Shared Sub Main()
    Dim D As Directory
    D = New Directory("C:\Temp")
    D.Delete()
  End Sub
End Class

Dim D As Directory
D = New Directory("source_dir")
D.MoveTo("dest_path")

Dim Dir() As String = IO.Directory.GetDirectories("путь\")
        For Each D As String In Dir
            ListBox1.Items.Add(IO.Path.GetFileName(D))
        Next