Ouvrir un fichier et le stocker dans un tableau

Option Explicit
'Version du 9 juillet 2014
'Ouvrir un fichier texte et le stocker dans un tableau

Dim objFSO, PathToFile, MyFileTextArray, objMyTextFile, objMyTextStream, FileContent, intUpper, CompteurLigne

'Déclaration des constantes
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8

const TristateFalse = 0

PathToFile = "C:\MonFichierALire.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")

set objMyTextFile = objFSO.GetFile(objFSO.GetAbsolutePathName(PathToFile))
set objMyTextStream = objMyTextFile.OpenAsTextStream(ForReading, TristateFalse)

FileContent = objMyTextStream.Read(objMyTextFile.Size)

MyFileTextArray = Split(FileContent, vbCrLf)

intUpper = Ubound(MyFileTextArray)
If Err.Number = 0 Then 'If the array is not empty
	For CompteurLigne = LBound(MyFileTextArray) To Ubound(MyFileTextArray)
		Wscript.echo "Ligne " & CompteurLigne & " : " & MyFileTextArray(CompteurLigne)
	Next 
End If

objMyTextStream.Close
Set objMyTextStream = Nothing
Set objFSO = Nothing

Wscript.echo "Finish"