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

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

[解决办法]

VB code

Private Sub Form_Load()    Dim a  As String    a = Dir("d:\")    Do While a <> ""        List1.AddItem a        a = Dir    LoopEnd Sub
[解决办法]
除了用dir还有API方法，比这快，分太少
[解决办法]
探讨

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

[解决办法]
dir()用起来简单些呵呵。