有很多朋友在进行文件操作时，往往会遇到两个问题：
一、在保存文件时，会自动在文件末加一个换行符；
二、无法完全覆盖上次保存的文件。

因此，文件系统对象的作用便体现出了其优越性。关于其使用方法如下：

一、为了在VB中能够正常使用文件系统对象模型，必须先选择菜单栏中的“工程”/“引用”，并在“引用”对话框中选取“Microsoft Scripting Runtime”，再单击“确定”；
二、定义自己的文件系统对象(可定义为模块级变量)，格式如下：
Dim fso As New FileSystemObject, TextFile As TextStream '定义文件系统
Dim FileDir As String  '定义一个存取文件路径及名称的字符串
三、对文本文件的写操作的方法：
FileDir=App.Path & "\aa.txt"  '存入你想写入的文件的路径及名称
Set TextFile = fso.CreateTextFile(FileDir,True) '创建文本文件   
        TextFile.Write (Text1.Text) '对文件的一次性写操作
TextFile.Close   '关闭文件

附：读操作方法如下：
Set TextFile = fso.OpenTextFile(FileDir) '打开文件
        Text1.Text = TextFile.ReadAll  '对文件的一次性读操作
TextFile.Close

发表于 @ 2005年12月04日 14:51:00|评论(loading...)|编辑