请各位帮我看看这个问题要怎么解决？

Question

请问我要将一个内容如下的文本（d:\10.txt）中的每行字符串读到一个动态数据里面，在VB里面要如何才能实现？文本内容如下：
study
System Volume Information
server2000
FOUND.000
FOUND.001
hackiso
daoru
My Documents
bak
Favorites
Recycled
Program Files
哪位高手如果知道麻烦指导一下，小弟感激不尽！

Answer 1

         '如下的子程序可以实现楼主的想法，拷贝即可使用
         Dim MyArr() As String
          
         FileLineToArr "d:\10.txt", MyArr()   '文件行到数组
          
          Public Function FileLineToArr(FileName As String, MyArr() As String) As Boolean
                           Dim MyArrIndex As Long, FNumber As Integer
                           ReDim MyArr(0 To 120000) As String
                           
                           FNumber = FreeFile()
                           Open FileName For Input As #FNumber
                               While Not EOF(1)
                                     Line Input #FNumber, MyArr(MyArrIndex)
                                     MyArrIndex = MyArrIndex + 1
                               Wend
                           Close #FNumber
                           
                           If MyArrIndex > 0 Then
                              ReDim Preserve MyArr(0 To MyArrIndex - 1) As String
                              FileLineToArr = True
                           Else
                              ReDim MyArr(0 To 0) As String
                           End If
          End Function

Answer 2

   Dim StrArray() As String, I As Long, LineString As String, fc As Integer
   fc = FreeFile
   I = 0
   Open "d:\10.txt" For Input As #fc
   Do While Not EOF(fc)
      Line Input #fc, LineString
      I = I + 1
      If I = 1 Then
         ReDim StrArray(1 To I)
      Else
         ReDim Preserve StrArray(1 To I)
      End If
      StrArray(I) = LineString   '每一个数组元素就是一行
   Loop
   Close #fc   '比如现实第3行的内容
   Msgbox "第3行的内容:" & StrArray(3),64,"提示"

Answer 3

回复tgstgstgs 谢谢你的方法，但我想问一下，如何才能把你的方法得到的数组中某个数组元素的值再输入出来，比如把数组中第一个元素输入到c:\10.txt里面，还有就是为啥子直接复制过来运行的话VB会提示FileLineToArr "d:\10.txt", MyArr()  是无效的过程，再麻烦你解答一下哈！回复SupermanKing 
你的方法运行的时候会Msgbox "第3行的内容:" & StrArray(3),64,"提示"下标越界，能不能再帮我看一下，谢谢了哈！

Answer 4

那就是你的文本没有第三行
Msgbox "最后一行的内容:" & StrArray(UBound(StrArray)),64,"提示"

Answer 5

再问一下，如果我想用刚才读到数组里面的数据来命名新复制的一批文件，比如数组里面有这两个数据
Recycled Program Files 现在用Program Files 来重命名新复制的一个文件
如filecopy "d:\10.txt", "d:\Program Files.txt"我想问一下要怎么样才能在VB里实现从数组里面自动读取数据并自动重命名新复制的文件，如上面所示，还请高手再来解答一下。