public class Test public Shared Sub Main Dim aryDirs() As String Dim strDir As String
aryDirs = Directory.GetDirectories("C:\Windows", "*SYSTEM*")
Console.WriteLine(" folders match the pattern '*SYSTEM*'.")
For Each strDir In aryDirs
Console.WriteLine(strDir)
Next strDir
End Sub End class
folders match the pattern '*SYSTEM*'.
C:\Windows\system
C:\Windows\system32