1.打开顺序访问文件
当以顺序型访问打开一个文件时，可执行以下操作：
从文件输入字符 (Input)
向文件输出字符 (Output)
把字符加到文件 (Append)
要顺序型访问打开一个文件，Open 语句使用以下语法：
Open pathname For [Input | Output | Append] As filenumber [Len = buffersize]
从文件中读取字符串
要检索文本文件的内容，应以顺序 Input 方式打开该文件。然后使用 Line Input#，Input( )，或者 Input# 语句将文件拷贝到程序变量中。
Line Input #FileNum, NextLine
Input #FileNum, name, street, city, state, zip
LinesFromFile = Input(n, FileNum)
要在顺序文件中存储变量的内容，应以顺序 Output 或 Append 打开它，然后使用 Print # 语句。例如，文本编辑器可以使用以下代码行来把一个文本框的内容拷贝到文件。
Print #FileNum, TheBox.Text
Visual Basic 也支持 Write # 语句，它把一列数字和/或字符串表达式写入文件。它自动地用逗号分开每个表达式，并且在字符串表达式端放置引号。
Write #FileNum AnyString, AnyNumber
注意 如果正在用顺序型访问的 Write # 与 Input # 语句，可考虑换用随机型 或二进制型访问，因为它们更适合面向于记录的数据。
2.打开随机访问的文件
要打开随机访问的文件，Open 语句使用以下语法：
Open pathname [For Random] As filenumber Len = reclength
因为 Random 是缺省的访问类型，所以 For Random 关键字是可选项。
可用以下代码打开文件：
Open "MYFILE.FIL" For Random As FileNum Len = RecLength
把记录读入变量
使用 Get 语句把记录复制到变量。
Get FileNum, Position, Employee
把变量写入记录
使用 Put 语句把记录添加或者替换到随机型访问打开的文件。
替换记录
要替换记录，请使用 Put 语句，指定想要替换的记录位置，例如：
Put #FileNum, Position, Employee
添加记录
要向随机访问打开的文件的尾端添加新记录，应使用前述代码段中所示的 Put 语句。把 Position 变量的值设置为比文件中的记录数多 1。例如，要在一个包含五个记录的文件中添加一个记录，把 Position 设置为 6。
LastRecord = LastRecord + 1
Put #FileNum, LastRecord, Employee
删除记录
通过清除其字段可以删除一个记录，但是该记录仍在文件中存在。通常文件中不能有空记录，因为它们会浪费空间且会干扰顺序操作。最好把余下的记录拷贝到一个新文件，然后删除老文件。
3.打开二进制型访问的文件
要为二进制型访问打开文件，应使用以下 Open 语句的语法：
Open pathname For Binary As filenumber
通过使用二进制型访问可使磁盘空间的使用降到最小。因为这不需要固定长度的字段，类型声明语句可以省略字符串长度参数。
4.用 File System Objects 创建文件并添加数据
有三种不同方法来创建一个顺序文本文件（有时被称为“文本流”）。一种方法就是使用 CreateTextFile 方法。要创建一个空文本文件，可以：
Dim fso As New FileSystemObject, fil As File
Set fil = fso.CreateTextFile("c:\testfile.txt", True)
另一种方法是使用 FileSystemObject 对象的 OpenTextFile 方法，该对象的 ForWriting 标志设置为：
Dim fso As New FileSystemObject, ts As New TextStream
Set ts = fso.OpenTextFile("c:\test.txt", ForWriting)
或者使用带 ForWriting 标志设置的 OpenAsTextStream 方法：
Dim fso As New FileSystemObject, fil As File, ts As TextStream
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile ("test1.txt")
Set fil = fso.GetFile("test1.txt")
Set ts = fil.OpenAsTextStream(ForWriting)
添加数据到文件
文本文件一经创建，就可以分三步向其中加入数据：
打开文本文件以备写入数据。
写入数据。
关闭文件。
要打开文件，可以使用下面两种方法中的任一种： File 对象的 OpenAsTextStream 方法，或 FileSystemObject 对象的 OpenTextFile 方法。
要向打开的文本文件中写入数据，可以使用 TextStream 对象的 Write 或 WriteLine 方法。它们之间的唯一差别是 WriteLine 在指定的字符串末尾添加换行符。
如果想要向文本文件中添加一个空行，请使用 WriteBlankLines 方法。
要关闭一个已打开的文件，请使用 TextStream 对象的 Close 方法。
例：
Sub Create_File()
Dim fso, txtfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
txtfile.Write ("这是一个测试例子。") ' 写入一行。
' 写入一行带有换行符的文本。
txtfile.WriteLine("Testing 1, 2, 3.")
' 向文件中写入三个换行符。
txtfile.WriteBlankLines(3)
txtfile.Close
End Sub
使用 File System Objects 读取文件
要从一个文本文件中读取数据，请使用 TextStream 对象的 Read、 ReadLine 或 ReadAll 方法：
任务 方法
从一个文件中读取指定数量的字符 Read
读取一整行（紧跟，但不包括，换行符） ReadLine
读取一个文本文件的所有内容 ReadAll
如果使用 Read 或 ReadLine 方法并且想要跳过数据的某些部分，可以使用 Skip 或 SkipLine 方法。
这些读取方法产生的文本被存储在一个字符串中，而这个字符串可以在一个控件中显示，也可以被字符串操作符分解（诸如 Left、 Right 和 Mid）、合并等等。
注意 vbNewLine 常数包含一个或多个字符（取决于操作系统）使得光标移至下一行的开头（回车/换行）。请注意，有的字符串末尾可能有这样的非打印字符。
温馨提示：答案为网友推荐，仅供参考