Public Shared Sub Main()
        ' Specify the directories you want to manipulate.
        Dim di As DirectoryInfo = New DirectoryInfo("c:\")
        Try
            ' Get only subdirectories that contain the letter "p."
            Dim dirs As FileSystemInfo() = di.GetDirectories("*p*")
            Console.WriteLine("Number of directories with a p: {0}", _
              dirs.Length)
            Dim diNext As DirectoryInfo
 
            ' Count all the files in each subdirectory that contain the letter 
            ' "e."
            For Each diNext In dirs
                Console.WriteLine("The number of files and directories " + _
                 "in {0} with an e is {1}", diNext, _
                 diNext.GetFileSystemInfos("*e*").Length)
            Next
        Catch e As Exception
            Console.WriteLine("The process failed: {0}", e.ToString())
        End Try
    End Sub