我把获取路径和文件名做好了，Text1.Text = 获取路径和文件名了

怎么把下面的。"f:\d.txt" 用　Text1.Text代替吖
Open "f:\d.txt" For Input As #1
RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1

Open " + Text1.Text + " For Input As #1
     RichTextBox2.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1

这样不行吗？

Dim ePath As String, M As Integer
 Dim eName As String, N As Integer
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|inp文件(*.inp)|*.inp|所有文件(*.*)|*.*"
  CommonDialog1.ShowOpen
  If CommonDialog1.FileName = "" Then Exit Sub
  ePath = Left(CommonDialog1.FileName, InStr(1, CommonDialog1.FileName, CommonDialog1.FileTitle) - 1)  'ePath 获取文件的路径
  eName = CommonDialog1.FileTitle   'eName 获取文件名字
  Text1.Text = CommonDialog1.FileName

Open Text1.Text For Input As #1

哦，是这样的语法吖。　我还加了个“+”号

老师，您好！，现在想跟您学习下，如何　用数组循环　依次逐行读取文本文件中的内容赋值给一个变量　呢？

Dim Str() As String '声明一个字符型数组
    Dim I As Long '声明一个长整型变量，下面读文件用到
   
    Open Text1.Text For Input As #1 '打开文件
   
    Do While Not EOF(1) '判断是否到了文件结尾
        ReDim Preserve Str(I) '给数组分配空间,
        
        Line Input #1, Str(I) '读取一行放入数组变量中
        
        I = I + 1 '判断读了多少行，再给数组分配空间
  MsgBox Str(I)　
　 Loop '循环
   
    Close #1 '关闭文件

－－－－－－－－－－－－－－－－－－
红色行下标越界！　求老师回答下吧　不知道哪里错了。

[ 本帖最后由 豆豆17373 于 2012-11-3 15:09 编辑 ]

VB中读取文本内容用MsgBox显示　

dim strLine as string
open Text1.text for input as #1

while not eof(1)

line input #1,strLine

msgbox strLine '显示每行

wend

close #1

   MsgBox Str(I)　
   I = I + 1 '判断读了多少行，再给数组分配空间