第一步:创建并返回一个对 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文件!"