Dim PlainText As String, TextLines() As String Dim i As Long PlainText = LisLeFichier("essai.txt") TextLines = Split(PlainText,vbCrlf) For i = 0 To UBound(TextLines) If Left(TextLines(i),3) = " C:" Then Me.lstLines.AddItem TextLines(i) Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question