'Verifie si le fichier existe dans la liste, sinon ajoute l'entrée Dim _verif As IEnumerable(Of String) From c In ListeFichier Where (TypeOf c Is Fichier) Select c.NomFichier Where (NomFichier Me.NomFichier) If _verif.Count = 0 Then c_Patchouz.ListeFichier = New List(Of Fichier) c_Patchouz.ListeFichier.Add(Me) Else End If
Dim _verif = From c In ListeFichier.OfType(Of Fichier) Where c.NomFichier = NomFichier Select c.NomFichier If verif.Any() Then c_Patchouz.ListeFichier = _verif.ToList() End If
?GetType(_verif) Type '_verif' non défini.