**METHOD:** `ts.ReadLine`

**Description**
Lit une ligne (jusqu’au retour à la ligne) dans un `TextStream`.

**Syntax**
`ts.ReadLine`

**Paramètres**
– *(aucun)*

**Retour**
Chaîne (la ligne).

**Exemples**
« `vb
Dim fso, ts
Set fso = CreateObject(« Scripting.FileSystemObject »)
Set ts = fso.OpenTextFile(« C:tempdemo.txt », 1)
Do While Not ts.AtEndOfStream
WScript.Echo ts.ReadLine
Loop
ts.Close
« `

**Voir aussi**
`TextStream.AtEndOfStream`, `FileSystemObject.OpenTextFile`