1、获取文本文件路径
2、通过流的方式打开文本文件
示例：
Dim MyString
Private Sub Command1_Click() ’按钮事件
Open App.Path + "\Myfile.txt" For Input As #1 '打开文本文件，读取。
Do While Not EOF(1) '是否没到文件末尾
Input #1, MyString '读取文件内容
Loop
Close #1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024