VBScript的读写文件操作

第一步：创建并返回一个对 ActiveX 对象的引用。

	CreateObject("Scripting.FileSystemObject")

第二步：打开要使用的文件对象

	OpenTextFile()
		或者OpenAsTextStream()

OpenTextFile 方法  
语法：object.OpenTextFile(filename[, iomode[, create[, format]]])  
作用：打开一个指定的文件并返回一个 TextStream 对象，该对象可用于对文件进行读、写、追加操作。  
说明：  
·iomode 参数可为下面设置值中的任何值：  
ForReading    1  打开一个只读文件，不能对此文件进行写操作。    
ForWriting    2  打开一个用于写操作的文件。如果和此文件同名的文件已存在，则覆盖以前内容。    
ForAppending    8  打开一个文件并写到文件的尾部。    
注意：在VBA帮助里是没有ForWriting的，其实是有的，VBA帮助也是有错误的。另外，这些常数在使用前要先声明，或者直接用数值。  
·create 可选的，它表示如果指定的 filename 不存在是否可以创建一个新文件。如果创建新文件，其值为 True。若不创建文件其值为 False。缺省值为 False。    
·Format 参数可为下面设置值中的任何值：  
TristateUseDefault  –2  使用系统缺省打开文件。    
TristateTrue    –1  以 Unicode 格式打开文件。    
TristateFalse      0  以 ASCII 格式打开文件。  
示例：  
Dim f  
Set f = fso.OpenTextFile("c:\testfile.txt", 2, True)  
或者：  
Const ForWriting = 2  
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)  
这两者功能是一样的，一个声明了常量，一个直接用数值。都是在C盘创建文件testfile.txt（如不存在），或以写的方式打开（如存在）。 

第三步：读写操作

		Read 方法

		或者ReadAll 方法
		或者ReadLine 方法

		Write 方法
		WriteBlankLines 方法
		WriteLine 方法

脚本实例：

set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("Test.txt")
s=file.readall
file.close
s=replace(s,"A","B")
set file=fso.createtextfile("#text.txt")
file.write s
file.close
msgbox "请查看#text.txt文件！"