【VBA】如何用dir返回某目录下的所有文件名

Question

在word宏下（VBA）写了一句：
Dir("C:\Documents and Settings\user\桌面\")
结果得到的值是这个文件夹下的第一个文件名，若我要所得到这个目录下所有的文件名，应该怎么去实现呢？除了用dir还有什么方法？

Answer 1

Private Sub Form_Load()
    Dim a  As String
    a = Dir("d:\")
    Do While a <> ""
        List1.AddItem a
        a = Dir
    Loop
End Sub

Answer 2

除了用dir还有API方法，比这快，分太少

Answer 3

需要结合循环来遍历得到所有的文件名，循环前用dir带参数，循环体中再次调用dir不带参数，在vb中这个是固定模式。参考1楼的做法。api的方法参考：
http://blog.csdn.net/johnny_83/archive/2007/07/22/1701833.aspx另外可以通过调用cmd的方法。
shell "dir ""C:\Documents and Settings\user\桌面\"" /A-D B > c:\list.txt"
然后去查看c:\list.txt