VB6 FSO读写文件

VB6（Visual Basic 6.0）是一个较老的编程环境，但是它仍然可以使用文件系统对象（FSO，File System Object）来读写文件。FSO是一个对象模型，通过它可以进行文件的读取、创建、修改、删除等操作。下面是一个简单的例子来说明如何使用VB6的FSO读写文件：

**写文件操作**：

Dim fso As Object, file As Object
Dim filename As String
Dim text As String

filename = "C:\test.txt"
text = "这是一段测试文本。"

' 创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")
' 使用FSO对象创建一个文件对象
Set file = fso.CreateTextFile(filename, True)

' 写入内容到文件
file.WriteLine(text)

' 关闭文件
file.Close

' 释放对象
Set file = Nothing
Set fso = Nothing

**读文件操作**：

Dim fso As Object, file As Object
Dim filename As String
Dim line As String

filename = "C:\test.txt"

' 创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")
' 打开一个已存在的文件
Set file = fso.OpenTextFile(filename, 1)

' 循环读取文件内容
Do While Not file.AtEndOfStream
    line = file.ReadLine
    ' 输出读取的内容（例如，输出到Immediate窗口）
    Debug.Print line
Loop

' 关闭文件
file.Close

' 释放对象
Set file = Nothing
Set fso = Nothing

在上面的例子中，`1` 表示以只读方式打开文件。如果你想以追加的方式打开文件，可以使用 `8` 作为 `OpenTextFile` 方法的第三个参数。