用text显示内容只出现一行

Question

Private Sub Command1_Click()
  Dim MyPath, MyName
  MyPath = "d:\"
  MyName = Dir(MyPath, vbSystem Or vbHidden Or vbNormal)
  Do While MyName <> ""
          Text1.Text = MyName
          MyName = Dir
  Loop
  End Sub
我运行了以上的代码以后,text上只会显示出文件夹的某一个文件,不会显示全部.请问这是为什么?

Answer 1

Dim MyPath, MyName
MyPath = "d:\"
MyName = Dir(MyPath, vbSystem Or vbHidden Or vbNormal)
Do While MyName <> ""
    If Text1.Text = "" Then
        Text1.Text = MyName
        MyName = Dir
    Else
        Text1.Text = Text1.Text & vbCrLf & MyName
        MyName = Dir
    End If
Loop

Answer 2

還有把Text1的MulitLine屬性設置爲True

Answer 3

Private Sub Command1_Click()
  Dim MyPath, MyName
  MyPath = "d:\"
  MyName = Dir(MyPath, vbSystem Or vbHidden Or vbNormal)
  Text1.Text = MyName
  Do While MyName <> ""
          Text1.Text =Text1.Text & ";" & MyName
          MyName = Dir
  Loop
  End Sub

Answer 4

Private Sub Command1_Click()
  Dim MyPath, MyName
  MyPath = "d:\"
  MyName = Dir(MyPath, vbSystem Or vbHidden Or vbNormal)
  Text1.Text = MyName
  Do While MyName <> ""
          Text1.Text =Text1.Text & vbNewLine & MyName
          MyName = Dir
  Loop
End Sub