VB中用FileSystemObject读写文件

IT商界

Zhoujun

　　用FileSystemObject对象的OpenTextFile方法可以快速简单地读写一个文本文件。

　　函数原型：OpenTextFile(FileName As String,[IOMode As IOMode=RorReading],[Create As Boolean=False],[Format As Tristate=TristateFalse]) As TextStream

　　传递的参数：第一个参数是文件名；第二个参数是读写方式：读、插入或写文件；第三参数决定若文件不存在，是否创建新文件；第四个参数指定文件的编码格式，使用缺省值TristateUseDefault。

　　首先需要在“工程”菜单中加入“引用—Microsoft Scripting Runtime”，然后以下代码用ReadAll方法将c:\test.txt的所有文本读到Textbox控件的Text1中：

　　Dim fso As Scripting.FileSystemObject

　　Dim ts As TextStream

　　Set fso = New Scripting.FileSystemObject

　　Set ts = fso.OpenTextFile("c:\test.txt", _ForReading, False, TristateUseDefault)

　　Text1.Text = ts.ReadAll()

　　ts.Close

　　以下代码将Textbox中的内容写入c:\testw.txt;

　　Set ts = fso.OpenTextFile("c:\testw.txt", _ForWriting, True, TristateUseDefault)

　　ts.Write(Text1.Text)

　　ts.Close