Imports System.IO Public Class Tester Public Shared Sub Main If Directory.Exists("c:\\") Then Dim directoryList As String() ' array for directories Dim i As Integer directoryList = Directory.GetDirectories("c:\\") For i = 0 To directoryList.Length - 1 Console.WriteLine(directoryList(i)) Next End If End Sub End Class
c:\\Documents and Settings c:\\Java_Dev c:\\oracle c:\\Program Files c:\\RECYCLER c:\\System Volume Information c:\\SYSTEM.SAV c:\\Temp c:\\WINDOWS