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
|