Shared Function FindInFiles(...) As ReadOnlyCollection(Of String)

Shared Function FindInFiles(dirPath As String , text As String, ignoreCase As Boolean, opt As SearchOption) _
	As ReadOnlyCollection(Of String)
Shared Function FindInFiles(dirPath As String , text As String, ignoreCase As Boolean, opt As SearchOption, _
	ParamArray extensions As String()) As ReadOnlyCollection(Of String)

							
Option Explicit On
Option Strict On

Imports Microsoft.VisualBasic.FileIO
Imports Microsoft.VisualBasic.Strings
Imports System
Imports System.IO
Imports System.Security

'...
Private Shared Sub FindInFilesSample()

   Dim dirPath As String
   Dim saisie As Integer
   Dim text As String
   Dim ignorecase As Boolean
   Dim searchoption As FileIO.SearchOption
   Dim files As ReadOnlyCollection(Of String)

   'CHOISIR dirPath
   Console.WriteLine("Saisissez le repertoire de la recherche puis 'Enter'")
   dirPath = Console.ReadLine()
   Console.WriteLine("Le repertoire de la recherche est: " + dirPath)
   Console.WriteLine()

   'CHOISIR text
   Console.WriteLine("Saisissez le texte à rechercher puis 'Enter'")
   text = Console.ReadLine()
   Console.WriteLine("Le texte recherché est: " + text)
   Console.WriteLine()

   'CHOISIR IgnoreCase
   Console.WriteLine("Choisissez une des options suivantes :")
   Console.WriteLine(Space(3) + "0 : Respecter la casse")
   Console.WriteLine(Space(3) + "1 : Ignorer la casse")
   saisie = Console.Read()
   While (Not(saisie = 48) AndAlso Not(saisie = 49))
         saisie = Console.Read()
   End While
   If saisie = 48 Then ignoreCase = False Else ignoreCase = True
         Console.WriteLine("Vous avez choisi IgnoreCase = " + ignoreCase.ToString())
         Console.WriteLine()

   'CHOISIR SearchOption
   Console.WriteLine("Choisissez une des options suivantes :")
   Console.WriteLine(Space(1) + "0 : Chercher aussi dans les sous-repertoires de " + dirPath)
   Console.WriteLine(Space(1) + "1 : Ignorer les sous-repertoires de " + dirPath)
   saisie = Console.Read()
   While (Not(saisie = 48) AndAlso Not(saisie = 49))
         saisie = Console.Read()
   End While
   If saisie = 48 _
      Then searchoption = FileIO.SearchOption.SearchAllSubDirectories _
      Else searchoption = FileIO.SearchOption.SearchTopLevelOnly
   Console.WriteLine("Vous avez choisi SearchOption = " + searchoption.ToString())
   Console.WriteLine()

   Console.WriteLine("FindInFiles en cours...")
   Try
   
         'EXECUTER la recherche
         files = My.Computer.FileSystem.FindInFiles(dirPath, text, ignorecase, searchoption)
         Console.WriteLine("FindInFiles terminé avec succès. " + files.Count.ToString() + " fichier(s) trouvé(s):")
         Console.WriteLine("---------------------------------------------------------------")

         'POUR CHAQUE chaine de caractère de files
         For Each file As String In files
                  'ECRIRE l'adresse de fichier récupéré
                  Console.WriteLine(Space(1) + file)
         Next

   'Dans le cas d'un chemin de repertoire Nothing.
   Catch ex As ArgumentNullException
         Console.WriteLine("FindInFiles a échoué car le chemin de répertoire est vide.")

   'Dans le cas du répertoire non trouvé.
   Catch ex As DirectoryNotFoundException
         Console.WriteLine("FindInFiles a échoué car le répertoire '" + dirPath + "' n'a pas été trouvé.")

   'Dans le cas d'un chemin de repertoire invalide.
   Catch ex As NotSupportedException
         Console.WriteLine("FindInFiles a échoué car le chemin de répertoire '" + dirPath + "' n'est pas valide.")

   'Dans le cas d'une longueur du chemin spécifié excèdant le maximum authorisé.
   Catch ex As PathTooLongException
         Console.WriteLine("FindInFiles a échoué car la longueur du chemin spécifié(" + dirPath.Length.ToString() + _
		") excède le maximum authorisé(248).")

   'Dans le cas d'un chemin correspondant à un fichier existant.
   Catch ex As IOException
         Console.WriteLine("FindInFiles a échoué car le chemin spécifié '" + dirPath + _
		"' correspond à un fichier existant, et non un répertoire")

   'Dans le cas d'un problème de sécurité.
   Catch ex As SecurityException
         Console.WriteLine("FindInFiles a échoué car l'utilisateur n'a pas les droits nécessaires sur : '" + dirPath + "' .")

   'Dans le cas d'un défaut d'autorisation d'accès.
   Catch ex As UnauthorizedAccessException
         Console.WriteLine("FindInFiles a échoué car l'utilisateur n'a pas les droits d'accès nécessaires.")

   'Dans tous les autres cas d'exception.
   Catch ex As Exception
         Console.WriteLine("FindInFiles a échoué car :")
         Console.WriteLine(ex.ToString())

   Finally
         Console.WriteLine("***************************************************************")
         Console.WriteLine()
   End Try
End Sub