File Directory VB.Net

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