Imports System.IO
Imports System.Linq
Module Module1
Sub Main()
Try
Dim files = From file In Directory.EnumerateFiles("\\library\")
Where file.ToLower().Contains("europe")
For Each file In files
Console.WriteLine("{0}", file)
Next
Console.WriteLine("{0} files found.",files.Count.ToString())
Catch PathEx As PathTooLongException
Console.WriteLine(PathEx.Message)
End Try
End Sub
End Module