经管类存取文件的方法有许多种文件.pptx

opentextfile 打开文件
createtextfile 建立文件
通过filesystemobject所打开的文件是一个TextStream对象，而通过textstream对象的各种方法和属性，就可以进一步读写文件。
1）opentextfile方法：打开文件
settextstream对象名=filesystemobject名.opentextfile(文件名，IO模式， 是否自动建立文件）
文件名：建议写入完整路径的文件名。
IO模式：可设置成forreading(=1)、forwrting(=2)或forappending(=8)。 如果设置成forreading，则打开的文件是只读的；
如果设置成forwriting，则打开的文件是可写的，而原来文件 的内容会被清除；
如果设置成forappending，则打开的文件是可写的，但原文件 的内容不会被清除，数据会从文件 的最后面开始写入。
参数缺省：表示forreading只读。 是否自动建立文件：可设置成true或false。
设置为：true则当文件不存在时，会自动 建立一个新文件。
设置为：false则当文件不存在时，就会产 生错误。
缺省时：表示为false。
例：将c:\autoexec.bat打开成为只读文件
dimfsasnewfilesystemobject
dimtxtfastextstream
settxtf=fs.opentextfile(“c:\autoexec.bat”)

例：将c:\text.txt打开成“从文件最后面写入的文件”
dimfsasnewfilesystemobject
dimtxtfastextstream
settxtf=fs.opentextfile(“c:\test.txt”,forappending,true)
txtf.close

2）createtextfile方法：建立文件
settextstream对象名=filesystemobject名.createtextfile(文件名称,是 否覆盖原文件）
文件名称：建议写入完整路径的文件名。
是否覆盖原文件：可设置成true或false。可缺省，缺省时是true,覆盖原文件
如果设置成true，则当文件存在的时候，原文将会被破 坏，而以新文件所替代。
如果设置成false，则当文件存在时，将会产生错误
例：建立一个c:\text.txt，若c:\test.txt存在，则覆盖它。
dimfsasnewfilesystemobject
dimtxtfastextstream
settxtf=fs.createtextfile(“c:\text.txt”)
3）fileexists方法：文件是否存在？
为了避免破坏已有的文件，通常会将“是否覆盖原文件”参数设置为false。但是有可能产生错误，如何避免错误，可以先判断文件是否存在，此时调用filesystemobjet对象的fileexists方法，具体程序如下：

‘fs为filesystemobject
iffs.fileexists(“c:\test.txt”)then‘文件已存在
‘其它处理方式
else
settxtf=fs.createtextfile(“c:\text.txt”)
endif
4）readline和writeline方法：文件的读取与写入
利用createdtextfile和opentextfile所打开（建立）的是文本文件，要存取文本文件，通常采用逐行读取或逐行写入的方式。读取时必须调用textstream对象的readline方法。写入时必须调用writeline方法。
例：
‘txtf和txtf2均为textstream对象
s=txtf.readline‘读取一行数据，并设置给s变量
txtf2.writelines‘将变量s的数据作为文件一行数据写入 5）atendofstream属性：文件是否已到末尾？
当读取位置已经到达文件的末尾时，如果再调用readlin读取数据，将会产生错误，为了避免这个错误，必须判断textstream对象的atendofstream属性，如果为true，就表示文件位置已经到达文件末尾，不可以再读数据。
Ifnottxtf.atendofstreamthen
s=txtf.readline
endif
例：将c:\autoexec.bat文件复制成为c:\autoexec.bak文件
dimfsasnewfilesystemobject
dimtxtf1astextstre