CreateTextFile

Set fso=createobject("Scripting.FileSystemObject")
Set qfile=fso.OpenTextFile("C:\qtptest.txt",2,True)

	For Iterator = 1 To 10
		qfile.Write  "Valor"&Iterator
		qfile.WriteBlankLines(1)
	Next

qfile.Close
Set qfile=nothing
Set fso=nothing