object.ReadLine
Function ReadLineTextFile Const ForReading 1, ForWriting 2 Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True) MyFile.WriteLine "Bonjour!" MyFile.WriteLine "Le petit renard roux et vif" MyFile.Close Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading) ReadLineTextFile = MyFile.ReadLine ' Renvoie "Bonjour!" End Function