Imports System.IO
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