Fonction : Boucle VBS de lecture de fichier

Exemple VBS de lecture d’un fichier

Voici l’exemple

Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists("c:\temp\ExportMDT.ini") Then
	set inf= Fso.OpenTextFile("c:\temp\ExportMDT.ini")
	While inf.AtEndOfStream <> True
		Ligne = Inf.Readline
	Wend
	inf.close
End If

Set Fso = CreateObject("Scripting.FileSystemObject")

If Fso.FileExists("c:\temp\ExportMDT.ini") Then

set inf= Fso.OpenTextFile("c:\temp\ExportMDT.ini")

While inf.AtEndOfStream <> True

Ligne = Inf.Readline

Wend

inf.close

End If

Laisser un commentaire Annuler la réponse.

Cet article n'a pas été revu depuis la publication.

Cet article a été créé par david le 6 décembre 2016.