Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
1 dim fsoObj, sFileName
2 sFileName = Server.MapPath("readThisFile.txt")
3 set fsoObj = Server.CreateObject("Scripting.FileSystemObject")
4 if fsoObj.fileExists(sFileName) then
5 dim objTextFile
6 set objTextFile = fsoObj.OpenTextFile(sFileName)
7 while not objTextFile.AtEndOfStream
8 Response.write objTextFile.ReadLine
9 wend
10 objTextFile.close
11 set objTextFile = nothing
12 else
13 Response.write "File Not Found"
14 end if
15 set fsoObj = nothing
1 dim fsoObj, sFileName, objtextFile
2 sFileName = Server.MapPath("writeToThisFile.txt")
3 set fsoObj = Server.CreateObject("Scripting.FileSystemObject")
4 set objtextFile = fsoObj.OpenTextFile(sFileName, 8)
5 objTextFile.WriteLine ("Hello world")
6 objTextFile.Close
7 set objTextFile = nothing
8 set fsoObj = nothing
3 set objTextFile = fsoObj.OpenTextFile("C:\inetpub\thisFile.txt", 8, TRUE)
set objTextFile = fsoObj.CreateTextFile("C:\inetpub\thisFile.txt")