列举文件夹内的文件

[bcfxbcfx]

有没有办法，能列出某个文件夹下面所有的文件名称，用API也可以.

[conrad_wan]

用dir函数就可以^_^

[VBDN]

可以，列举c盘下所有文件的例子：
Private Sub Command1_Click()
Dim sFile As String
sFile = Dir("c:\")
Do While Len(sFile) > 0
sFile = UCase(Trim(sFile))
Debug.Print sFile
sFile = Dir '下一个文件
Loop
End Sub