Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim arrDirs() As String
Dim strDir As String
Try
arrDirs = Directory.GetDirectories("c:\\")
For Each strDir In arrDirs
Console.WriteLine(strDir)
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
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