File Directory VB.Net

Imports System
Imports System.IO
Public Class GetFilesTest
    Public Shared Sub Main()
        Dim di As New DirectoryInfo("c:\")
        Dim fiArr As FileInfo() = di.GetFiles()
        Dim fri As FileInfo
        For Each fri In fiArr
            Console.WriteLine(fri.Name)
        Next fri
    End Sub 
End Class