编程学习课件-文件.pptVIP

第九章 文件 存取文件的方法有许多种，可以使用VB提供函数，使用windows Api函数等，但是最简单的方法是使用filesystemobject对象。而它并非VB内置对象，需引用才可以使用。 1．filesystemObject对象引用 “工程/引用/microsoft scription Runtime” 在对象浏览器窗口中选“scripting”模块，看到增了许多对象，drive filesystemobject textstream file等其中filesystemobject是这些对象的关键，想要使用其它对象，都必须先建立filesystemobject对象。 ２．文件存取 dim fs as new filesystemobject 建立filesystemobject对象 dim txtf as textstream 定义了一个textstream对象变量 textstrem对象与文件的读写 所有文件都必须先打开，才能读写，filesystemobjet对象所提供的打开文件的方法有两种： opentextfile 打开文件 createtextfile 建立文件 通过filesystemobject所打开的文件是一个TextStream对象，而通过textstream对象的各种方法和属性，就可以进一步读写文件。 1）opentextfile 方法：打开文件 set textstream对象名=filesystemobject名.opentextfile(文件名，IO模式， 是否自动建立文件） 文件名：建议写入完整路径的文件名。 IO模式：可设置成forreading(=1)、forwrting(=2)或forappending(=8)。 如果设置成forreading，则打开的文件是只读的； 如果设置成forwriting，则打开的文件是可写的，而原来文件 的内容会被清除； 如果设置成forappending，则打开的文件是可写的，但原文件 的内容不会被清除，数据会从文件 的最后面开始写入。 参数缺省： 表示forreading 只读。 是否自动建立文件：可设置成true或false。 设置为：true 则当文件不存在时，会自动 建立一个新文件。 设置为：false 则当文件不存在时，就会产 生错误。 缺省时：表示为false。 例：将c:\autoexec.bat打开成为只读文件 dim fs as new filesystemobject dim txtf as textstream set txtf=fs.opentextfile(“c:\autoexec.bat”) 例：将c:\text.txt打开成“从文件最后面写入的文件” dim fs as new filesystemobject dim txtf as textstream set txtf=fs.opentextfile(“c:\test.txt”,forappending,true) txtf.close 2）createtextfile 方法：建立文件 set textstream对象名=filesystemobject名.createtextfile(文件名称,是 否覆盖原文件） 文件名称：建议写入完整路径的文件名。 是否覆盖原文件：可设置成true或false。可缺省，缺省时是true,覆盖原文件 如果设置成true，则当文件存在的时候，原文将会被破 坏，而以新文件所替代。 如果设置成false，则当文件存在时，将会产生错误 例：建立一个c:\t