Lire un fichier

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

Option Explicit

Dim objFSO, objTextFileListe
Dim CheminScriptActuel, CheminFichierListe, ScriptFileName
Dim Position
Dim ContenuLigne

'Déclaration 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)

CheminFichierListe = ScriptFileName & "_Liste.txt"

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
CheminFichierListe = CheminScriptActuel & "\" & CheminFichierListe

If Len(CheminFichierListe) > 0 Then

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FileExists(CheminFichierListe) Then 'Si le fichier qui contient la liste des machines existe
		Set objTextFileListe = objFSO.OpenTextFile(CheminFichierListe, ForReading, True)

		Do Until objTextFileListe.AtEndOfStream
			ContenuLigne = objTextFileListe.Readline 'Lecture et affichage de la ligne
			Wscript.Echo ContenuLigne
		Loop		
		
		objTextFileListe.Close 'Fermeture du fichier
		Set objTextFileListe = Nothing
	Else
		Wscript.echo "Le fichier '" & CheminFichierListe & "' n'existe pas"
		Wscript.echo "Creation dans " & CheminScriptActuel
		Set objTextFileListe = objFSO.OpenTextFile(CheminFichierListe, ForWritting, True)
		objTextFileListe.Close 'Fermeture du fichier
		Set objTextFileListe = Nothing
		Wscript.echo "Creation terminée. Vous pouvez rejouer le script apres avoir placé dans valeurs dans " & CheminFichierListe
	End If

	Set objFSO = Nothing

Else
	Wscript.echo "Operation annulee"
End If