VB 读写文件

由于FSO对象包含在Scripting 类型库 (Scrrun.Dll）中，所以在使用前首先需要在在工程中引用这个文件，单击“工具”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的 复选框，然后单击“确定”。

 

要创建FSO对象可以采用两种方法，一种是将一个变量声明为FSO对象类型：Dim fsoTest As New FileSystemObject；另一种是通过CreateObject方法创建一个FSO 对象：Set fsoTest = CreateObject（“Scripting.FileSystemObject")。在实际使用中具体采用哪种声明方法，可根据个人的使用习惯而定。

 

完成了FSO对象模型的创建之后，就可以利用创建的对象模型的方法访问下属各个对象的属性来获取所需信息或进行相关操作了，具体的方法在下面结合各个对象分别讲述。

 

在VB中新建一个工程，然后在Form1上添加两个 命令按钮，然后输入以下代码：

 

Private Sub CmdRead_Click()

Dim fsoTest As New FileSystemObject,file1 As File,ts As TextStream,s As String

Set file1 = fsoTest.GetFile（“C:\testfile.txt")

Set ts = file1.OpenAsTextStream(ForReading)

'读取一行

s = ts.ReadLine

MsgBox s

ts.Close

End Sub

 

Private Sub CmdWrite_Click()

Dim txtfile As File,ts As TextStream

Set txtfile = fsoTest.GetFile（“c:\testfile.txt")

Set ts = txtfile.OpenAsTextStream(ForWriting)

'使用Write方法写入一行。

ts.Write （“This is only a Test")

' 写入一行带有换行符的文本。

ts.WriteLine （“Testing 1,2,3.")

' 向文件中写入三个换行符。

ts.WriteBlankLines ⑶

ts.Close

End Sub

 

在这里我们假设已经在磁盘上建立了一个名为testfile.txt的文件。在按下F5运行时，先单击Write写入数据，然后按下Read读取数据。