如何获取文件夹所有文件名

woa 发布于 2010-09-16 13:25， 6186 次点击

如题，谁给个思路

6 回复

风吹过b2010-09-16 14:49

Dim mypath As String, myname As String

mypath = "c:\"   ' 指定路径。
myname = Dir(mypath, 7)    ' 找寻第一项。
Do While myname <> ""   ' 开始循环。
    Debug.Print myname            '显示文件名
    myname = Dir   ' 查找下一个文件
Loop

woa2010-09-16 17:22

代码可行，dir（mypath,7）这句7是什么意思

woa2010-09-16 17:24

debug想起来是立即窗口显示。。

[ 本帖最后由 woa 于 2010-9-16 17:47 编辑 ]

bczgvip2010-09-16 18:52

vbReadOnly or vbHidden or vbSystem 'or vbNormal ' = 7

pansing2013-07-09 09:53

很有用

zhgfeng202020-08-16 11:11

已解，非常感谢！