请问如何读取特定（C：\readme.txt）文件，并显示

Question

我要实现的功能是这样的：当我点击一个按钮时，程序自动读取特定目录下的特定文本文件，（如C：\readme.txt，路经和文件在程序里设定好），不打开对话框，并将其文本文件的内容显示出来。
请问如何实现？
最好给出提示代码，谢谢

Answer 1

Dim TextLine
Open "C:\readme.txt" For Input As #1   ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
   Debug.Print TextLine   ' 在立即窗口中显示数据。
Loop
Close #1   ' 关闭文件。

Answer 2

Open "C:\readme.txt" For binary as #1
text1.text=input(lof(1),1)
Close #1

Answer 3

如 sektor(普通动物) 所述

Answer 4

楼上的方法很好,也可以用文件对象实现 Dim Wjxt As New FileSystemObject, Wj As TextStream 
 dim getstring as string
 Set Wj = Wjxt.OpenTextFile("C:\readme.txt", ForReading, True)
 Do While wj.AtEndOfLine <> True
    getstring = Wj.ReadLine
    debug.print getstring
 Loop

Answer 5

我也有类似的问题，如果我想让它用记事本打开，而不是在立即窗口或者Text1中显示，这时候怎么办？

Answer 6

Shell "notepad h:\123.txt", vbNormalFocus

Answer 7

如果要打开一个WORD文档的话：
Shell "rundll32.exe url.dll,FileProtocolHandler " & App.Path & "\123.doc", vbMinimizedNoFocus这也是高手教我的，呵呵~~