<%@ Language = VBScript %>
<% Option Explicit %>
<%
'Define constants.
Const FORREADING = 1
Const FORWRITING = 2
Const FORAPPENDING = 8
%>
FileSystem Component
FileSystem Component
<%
Dim curDir
Dim objScriptObject, objMyFile
Dim x
'Map current path to physical path.
curDir = Server.MapPath("\iissamples\sdk\asp\components\")
'Create FileSytemObject component.
Set objScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and write to a file.
Set objMyFile = objScriptObject.CreateTextFile(curDir + "\" + "MyTextFile.txt", FORWRITING)
For x = 1 to 5
objMyFile.WriteLine "Line number " & x & " was written on " & now & "
"
Next
objMyfile.Close
%>
<%
'Read from file and output to screen.
Set objMyFile = objScriptObject.OpenTextFile(curDir + "\" + "MyTextFile.txt", FORREADING)
Response.Write objMyFile.ReadAll
%>