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!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
bad file mode error
- Thread starter abhayrao
- Start date
FengShui1998
MIS
abhayrao,
Can you post your code?
fengshui_1998
Can you post your code?
fengshui_1998
- Thread starter
- #3
here is my code.You wanted to see it fengshui_1998 :-
<html>
<script language="VBScript">
function save()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject"
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"
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>
<html>
<script language="VBScript">
function save()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject"
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"
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>
- Thread starter
- #4
here is my code.You wanted to see it fengshui_1998 :-
<html>
<script language="VBScript">
function save()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject"
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"
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>
<html>
<script language="VBScript">
function save()
Dim oFS, writefile
Set oFS = CreateObject("Scripting.FileSystemObject"
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"
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>
- Status
Similar threads
- Locked
- Question