Test

Whismeril
Messages postés
17686
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
17 août 2022
- 8 janv. 2017 à 13:03
Private Function FichiersContenantTexte(ByVal Repertoire As String, ByVal TexteATrouver As String) As List(Of String)
   Dim resultat As New List(Of String)()

   For Each fichier As String In Directory.GetFiles(Repertoire,"*.txt",SearchOption.TopDirectoryOnly)
    If File.ReadAllText(fichier).Contains(TexteATrouver) Then
     resultat.Add(fichier)
    End If
   Next fichier

   Return resultat
End Function