请问一个遍历的问题

storyst

Sub vb()
Dim filename As String
Dim i As Integer
Dim array1 As Variant
     filename = Dir("F:\*.*")
     i = 0
   Do While filename = ""

      array1(i) = filename
         i = i + 1
   Loop
      MsgBox filename
End Sub
这段为什么不能得到所有F盘下的文件名啊？
求教？

雪山飞狐_lzh

Sub tt()
Dim filename As String
Dim i As Integer
     filename = Dir("F:\*.*")
     i = 0
   Do While filename <> ""

      MsgBox filename
      filename = Dir()
      i = i + 1
   Loop
End Sub

 

storyst

谢谢斑竹!