Imports System
Imports System.IO
Public Class DirectoryTest
Public Shared Sub Main()
Dim fi As New FileInfo("temp.txt")
Dim di As DirectoryInfo = fi.Directory
Dim fsi As FileSystemInfo() = di.GetFileSystemInfos()
Console.WriteLine(di.FullName)
Dim info As FileSystemInfo
For Each info In fsi
Console.WriteLine(info.Name)
Next info
End Sub
End Class