我要评论复制代码 代码如下:
'向指定的文件写字符串，第三个参数指定是否删除原来的内容
function z_writefile(sfilename, stext, bappend)
dim fs, fso, iomode
if bappend = true then
iomode = 8 'forappending
else
iomode = 2 'forwriting
end if
set fs = createobject("scripting.filesystemobject")
set fso = fs.opentextfile(sfilename, iomode, true) '第三个参数表明文件不存在，则新建文件
fso.writeline stext
fso.close
set fso = nothing
set fs = nothing
end function
dim path, sfilename, stext
path = "e:\program\vbscript"
sfilename = path & "\1.txt"
stext = "what can i do for you"
z_writefile sfilename, stext, true
z_writefile中的第三个参数指定向文件末尾添加内容还是清除原来的内容再插入内容。
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的，请 点击进行留言回复，万千网友为您解惑！
网友评论