Question

如何在vb6.0中创建和使用文本资源文件

Answer 1

1、创建文件
Private Sub Command1_Click()
‘创建一个文件text.txt,并写入"Hello world!"
Open "d:\test.txt" For Output As #1
Print #1, "Hello world!"
Close #1
End Sub
2、打开文件读取

Dim MyString
Private Sub Command1_Click() ’按钮事件
Open “d:\text.txt" For Input As #1 '打开文本文件，读取。
Do While Not EOF(1) '是否没到文件末尾
Input #1, MyString '读取文件内容
Loop
Close #1
End Sub