FSO使用教程7 -- 如何使用FSO写入文件
日期：2011-09-17 浏览次数：20757 次
如何使用FSO写入文件-FSO使用教程7
写入数据到文件的方法有WriteLine及Write两种，以下详细介绍这两种的使用方法：
七、如何用FSO写入文件：
方法：WriteLine 及 Write
调用格式：(WriteLine会在数据之附加vbCrlf分行符，然后才写入数据，Write则按原数据写入)
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File, 2, True) '打开为只写文件
'Data为要写入文件的数据变量
txt.WriteLine Data
txt.Write Data
方法2：ReadAll
调用格式：（把文件所有内容一次读出）
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
Content = txt.ReadAll '读取整个文件的数据
Lines = Replace(Content, vbCrlf, "<br>") '将文本内分行字符vbCrlf换成HTML换行标记"<br>"
Response.Write Lines
End If
源码示例：(利用ReadAll及Write方法读取File1.txt内容并将其写入到File2.txt中)
<%
'================================================
'作者：爱易学习网
'网址：http://www.aiyiweb.com/
'源码：FSO读取文件内容并写入另一文件示例
'时间：2005年12月17日
'================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = Server.MapPath("File1.txt")
WFile = Server.MapPath("File2.txt")
Set txt1 = fs.OpenTextFile(SFile)
Set txt2 = fs.OpenTextFile(WFile, 2, True) '打开为只写文件
If Not txt1.atEndOfStream Then '先确定还没有到达结尾的位置
Content = txt1.ReadAll '读取整个文件的数据
End If
txt2.Write Content
%>
