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
|