rt

怎么没人帮忙呢

最简单的可以用FileList控件.
复杂点的.
http://bbs.bc-cn.net/viewthread.php?tid=106159
请看4楼.

Private Sub Command1_Click()
set Fso=createobject("scripting.filesystemobject")
Set F1 = Fso.getfolder("d:\")
Set F2 = F1.Files
For Each i In F2
msgbox i.path
next
End Sub
'显示D盘下所有文件名.(包含路径)

dim a as string
text1.text=""
text1.text = Dir(ConfirmPath) & chr(13) & chr(10) 'ConfirmPath是你要的路径
Do While a <> ""
a = Dir
text1.text =a & chr(13) & chr(10)
Loop
这样文本控件里就有目录下所有文件名了，不过也包括文件夹名。

百度里有更好的答案：
http://zhidao.baidu.com/question/4268976.html