<%
Option Explicit
Dim objFileSys
Dim TheTextStream
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheTextStream = objFileSys.CreateTextFile("temp.txt", True)
TheTextStream.WriteLine "To jest pierwszy wiersz."
TheTextStream.WriteLine " To jest drugi wiersz."
TheTextStream.Write "Brak koca wiersza."
TheTextStream.WriteBlankLines 2
TheTextStream.WriteLine "Kolejny wiersz."
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Response.Write TheTextStream.ReadAll & "<P>"
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Do Until TheTextStream.AtEndOfStream
  Response.Write TheTextStream.ReadLine & "<BR>"
Loop
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Response.Write "<BR>" & TheTextStream.Read(6) & "<P>"
Response.Write "Wiersz: " & TheTextStream.Line & "<BR>Kolumna: " & TheTextStream.Column
TheTextStream.Skip 4
Response.Write "<BR>" & TheTextStream.Read(3) & "<P>"
TheTextStream.SkipLine
Response.Write TheTextStream.ReadLine
%>    
