Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim arrDirs() As String
Dim strDir As String
Try
arrDirs = Directory.GetDirectories("c:\\","Wind*")
For Each strDir In arrDirs
Console.WriteLine(strDir)
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
c:\\WINDOWS