Mega Code Archive

 

Categories / VB.Net by API / System

 

My Computer FileSystem FindInFiles

Imports System Imports System.Collections.ObjectModel Imports System.IO Public Class MainClass    Shared Sub Main()         Dim file_names As ReadOnlyCollection(Of String)         Dim directory As String = "c:\"         Dim searchFor As String = "windows"                  file_names = My.Computer.FileSystem.FindInFiles( _             directory, _             searchFor, _             True, _             FileIO.SearchOption.SearchAllSubDirectories)         For Each file_name As String In file_names             Console.WriteLine( file_name )         Next file_name    End Sub  End Class