code for fengshui1998 from abhayrao

abhayrao · Aug 7, 2002

fengshui1998,you wanted to see my code.Here it is:-
<html>
<script language="VBScript">
function save()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject&quot

Set writefile= oFS.OpenTextFile("c:\a.txt",true)
writefile.write(S1.value)
writefile.close
end function
function open()
Dim oFS, readfile
Set oFS = CreateObject("Scripting.FileSystemObject&quot

Set readfile= oFS.OpenTextFile("c:\a.txt",true)
readfile.ReadAll
readfile.close
end function
</script>
<body>
<textarea rows="20" name="S1"
cols="80"></textarea><br>
<input type="button" id="save"
value="Save" onClick="save()">
<input type="button" id="open"
value="Open" onClick="open()">
</body>
</html>
can you tell what the problem is and how to handle the "bad file mode" error?

FengShui1998 · Aug 7, 2002

Try this code,

<html>
<head>
<script language="VBScript">
function save1()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject&quot

Set writefile= oFS.CreateTextFile("c:\output1.txt&quot

writefile.writeline(document.xxx.S1.value)
writefile.close
end function

function open1()
Dim oFS, readfile
Set oFS = CreateObject("Scripting.FileSystemObject&quot

Set readfile= oFS.OpenTextFile("c:\output1.txt",true)
readfile.ReadAll
readfile.close
end function
</script>

</head>
<body>
<form name="xxx">
<textarea rows="20" name="S1" cols="80"></textarea><br>
<input type="button" id="savex" value="Save" onClick="save1()">
<input type="button" id="openx" value="Open" onClick="open1()">
</form>
</body>
</html>

fengshui_1998

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

code for fengshui1998 from abhayrao

abhayrao

Technical User

FengShui1998

MIS

Similar threads

Part and Inventory Search

Sponsor