VBScript: SIMPLE FileSystemObject

<%
	set fso = Server.CreateObject("Scripting.FileSystemObject")
	configFile = Server.MapPath("/") & "\test.log"
	set theFile = fso.OpenTextFile(configFile, 1) '1=Read, 2=Write, 8=Append

	do until theFile.AtEndOfStream or x = 10
		Response.Write(theFile.ReadLine & "<br />")
		x = x + 1
	loop

	theFile.close
%>

Advertisement