VB如何打开一个文本文件？

1、获取文本文件路径\x0d\x0a2、通过流的方式打开文本文件\x0d\x0a示例：\x0d\x0aDim MyString\x0d\x0aPrivate Sub Command1_Click() ’按钮事件\x0d\x0a Open App.Path + "\Myfile.txt" For Input As #1 '打开文本文件，读取。\x0d\x0a Do While Not EOF(1) '是否没到文件末尾\x0d\x0a Input #1, MyString '读取文件内容\x0d\x0a Loop\x0d\x0a Close #1\x0d\x0aEnd Sub

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

---