怎样实现用RichTextBox1控件同时打开多个文本文件？？送分

Question

我是要实现用RichTextBox1打开大约十几个文本文件，我用如下的方法打开时比较慢，怎样才能加快速呢？
Private Sub Command4_Click()
     Dim sA As String
     aa = "C:\123\"
     mypath =aa  &"000001.*"
     myname = Dir(mypath)
     Do While myname <> ""
     If myname <> "." And myname <> ".." Then
          Open aa & myname For Binary As #1
          sA = Space(LOF(1))
          Get #1, , sA
          RichTextBox1.Text = RichTextBox1.Text + sA + vbCrLf
          Close #1
     End If
     myname = Dir
     Loop
End Sub
如果想用RichTextBox.loadfile的方法来打开多个文本文件可以吗？

Answer 1

Private Sub Command4_Click()
     Dim sA As String
     aa = "C:\123\"
     mypath =aa  &"000001.*"
     myname = Dir(mypath)
     Do While myname <> ""
     If myname <> "." And myname <> ".." Then
          Open aa & myname For Input As #1
          Input #1, sA
          RichTextBox1.Text = RichTextBox1.Text + sA + vbCrLf
          Close #1
     End If
     myname = Dir
     Loop
End Sub

Answer 2

Private Sub Command4_Click()
     Dim sA As String
     aa = "C:\123\"
     mypath =aa  &"000001.*"
     myname = Dir(mypath)
     Do While myname <> ""
     If myname <> "." And myname <> ".." Then
          RichTextBox1.loadfile(myname)
          sA = sa & RichTextBox1.text & vbcrlf
     End If
     myname = Dir
     Loop
     RichTextBox1.text =sa
End Sub

Answer 3

RichTextBox控件中内容的组合是字符串的组合，速度可能会变慢的。