Option Explicit

Dim CheminScriptActuel, CheminFichier, ScriptFileName, MaLigne
Dim objFSO, objTextFile
Dim Position

'Declaration des constantes
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8

ScriptFileName = wscript.scriptname
Position = InstrRev(ScriptFileName,".")
if (Position > 0) Then ScriptFileName = Left(ScriptFileName, Position - 1)
ScriptFileName = ScriptFileName & "_Liste.txt"

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
CheminFichier = InputBox("Entrez le chemin du fichier","Chemin du fichier",CheminScriptActuel & ScriptFileName)


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForReading, True)

'Pour toutes les lignes du fichier
Do Until objTextFile.AtEndOfStream
	MaLigne = objTextFile.Readline 'Lecture et affichage de la ligne
	Wscript.Echo MaLigne
Loop

objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing