Bonjour,

Pourquoi "ça marche pas" svp ?

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
19
 
Const ForReading = 1
strFile = "toto.vbs"
 
objInLine = OpenTextFileForReading(strFile)
line = objInLine.ReadLine
wscript.echo line
objInLine.Close
wscript.quit 
 
'-------------------------------------------------------
Function OpenTextFileForReading(strFile)
 
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strFile)
set objInLine = objFile.OpenAsTextStream(ForReading)
OpenTextFileForReading = objInLine                    ' <== bug
 
End Function
C:\vbs\test.vbs(15, 1) Erreur d'exécution Microsoft VBScript: Cet objet ne gère pas cette propriété ou cette méthode

Merci.