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