Bonjour,

Je voudrais récupérer la 8eme ligne dans un fichier ListeUser.txt.

Mais impossible à d’afficher la 8eme ligne à partir du code ci-dessous !


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
	Function Lecture()
				dim ScriptFileName,objFSO,FileOut,i,mot,Temp 
                                Temp = "C:\test"
				ScriptFileName = Temp & "\ListeUser.txt"
				Set objFSO = CreateObject("Scripting.FileSystemObject")
				Set InputFile = objFSO.OpenTextFile(ScriptFileName)
				i = 1
				Do Until InputFile.atEndOfStream
                                   i = i + 1
                                   if i = 8 Then
					mot = InputFile.Readline
                                   end if 
				loop
                                Lecture = mot 
				InputFile.close
				if objFSO.FileExists(ScriptFileName) Then objFSO.DeleteFile(ScriptFileName)
	End Function
        Msgbox Lecture()
Pouvez vous corriger mon problème svp !!!

Je vous remercie d'avance !!