缺少对象的问题?
<html>
<head>
<title>createtextfile</title>
<script language = "vbscript">
dim f,fo,fn
set fo = createobject("scripting.filesystemobject")
function newline()
fn = "c:\" + document.thisform.filename.value
set f = fo.createtextfile(fn,false) //本行报错
msgbox "新文件打開完成"
end function
function newline()
f.writeline(document.thisform.instring.value)
document.thisform.instring.value = " "
end function
function dumpfile()
f.close
set f1 = fo.opentextfile(fn)
tmp = replace(f1.readall,vbcrlf,"<br>")
document.open
document.write(tmp)
document.close
end function
</script>
</head>
<body>
<form name = "thisform">
<input type = "text" name = "filename" size = "50"><br><br>
<input type = "button" onclick = "newline()" value = "打開新文件"<br><br>
<input type = "text" name = "instring" size = "50"><br><br>
<input type = "button" onclick = "newline()" value = "新增一行"><br><br>
<input type = "button" onclick = "dumpfile()" value = "讀取文件">
</form>
</body>
</html>
说缺少对象F,怎么改?