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