Bonjour,
Pourquoi "ça marche pas" svp ?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
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.
Partager