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