vb6 怎么实现 创建txt文件和对该文件进行读写操作

'以下是我做的一个例子，其功能是：统计D盘Mydir文件夹中文本文件data.txt中字符“R”出现的次数。并将统计结果写入到文本文件D:\Mydir\res.txt

'已完成并调试成功，代码如下：

'注意为使用FSO需先引用Microsoft Scripting Runtime
Public FSO As New FileSystemObject

Private Sub Command2_Click()
Dim ObjTS As TextStream, ObjFile As File, StrTemp As String, n As Integer

'读取文件的内容。
Set ObjFile = FSO.GetFile("D:\Mydir\data.txt") '(App.Path & "\data.txt")
Set ObjTS = ObjFile.OpenAsTextStream(ForReading)
StrTemp = ObjTS.ReadAll

'统计R的个数。
n = 0
For i = 1 To Len(StrTemp)
If Mid(StrTemp, i, 1) = "R" Then n = n + 1
Next i

ObjTS.Close

'将统计出来的R的个数数据写入文件中
Dim TxtFile
Set TxtFile = FSO.CreateTextFile("D:\Mydir\res.txt", True) '(App.Path & "\res.txt", True)
TxtFile.WriteLine (CStr(n))
TxtFile.Close

End Sub