File Directory VB.Net

Imports System
Imports System.IO
Public Class FileLength
    Public Shared Sub Main()
        Dim di As New DirectoryInfo("c:\")
        Dim fiArr As FileInfo() = di.GetFiles()
        Dim f As FileInfo
        Console.WriteLine("{0} contains the following files:", di.Name)
        For Each f In fiArr
            Console.WriteLine("The size of {0} is {1} bytes.", f.Name, f.Length)
        Next f
    End Sub
End Class