File Directory VB.Net

Imports System.IO
Module Module1
    Sub Main()
        Dim Files As String() = Directory.GetFiles("C:\")
        Dim Dirs As String() = Directory.GetDirectories("C:\")
        Console.WriteLine("Root Files")
        Dim Filename As String
        For Each Filename In Files
            Console.WriteLine(Filename)
        Next
        Console.WriteLine("Root Directories")
        Dim DirectoryName As String
        For Each DirectoryName In Dirs
            Console.WriteLine(DirectoryName)
        Next
    End Sub
End Module