如何得到一个文件夹中所有的文件名? - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何得到一个文件夹中所有的文件名?

标题：如何得到一个文件夹中所有的文件名?

只看楼主

风月_无边

等　级：版主
威　望：60
帖　子：2959
专家分：652
注　册：2007-1-19
结帖率：100%

楼主

问题点数：0 回复次数：4

如何得到一个文件夹中所有的文件名?

搜索更多相关主题的帖子: 文件名　

2007-05-09 08:24

风月_无边

等　级：版主
威　望：60
帖　子：2959
专家分：652
注　册：2007-1-19

第 2 楼

得分:0

怎么没人帮忙呢

我的网站 http://www.

2007-05-09 16:33

purana

来　自：广东-广州
等　级：版主
威　望：66
帖　子：6039
专家分：0
注　册：2005-6-17

第 3 楼

得分:0

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

我的msn: myfend@

2007-05-09 17:53

gkimjatl

等　级：新手上路
帖　子：106
专家分：0
注　册：2007-3-20

第 4 楼

得分:0

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盘下所有文件名.(包含路径)

2007-05-14 18:28

milk713785

等　级：新手上路
帖　子：39
专家分：0
注　册：2007-5-9

第 5 楼

得分:0

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

2007-05-14 19:15

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-137809-1-1.html