Office中国论坛/Access中国论坛
标题:
将文件夹中所有文件列出---递归函数
[打印本页]
作者:
Henry D. Sy
时间:
2009-2-23 09:45
标题:
将文件夹中所有文件列出---递归函数
需要引用Office11，Scripting Runtime
Sub ListFolder(fd As Folder)
Dim sfd As Folder
Dim f As File
For Each f In fd.Files
List10.AddItem f.Path
Next
For Each sfd In fd.SubFolders
List10.AddItem sfd.Path
ListFolder sfd
Next
End Sub
复制代码
[attach]57177[/attach]
作者:
蓝天8390
时间:
2009-2-23 09:52
谢谢版主奉献,收藏了.
作者:
andymark
时间:
2009-2-23 09:55
学习一下~~
作者:
tmtony
时间:
2009-2-23 10:09
收藏了!! 另6D收一下论坛短信哦
作者:
koutx
时间:
2009-2-23 10:49
谢谢分享
作者:
asklove
时间:
2009-2-23 16:43
收藏先
作者:
chaojianan
时间:
2009-2-23 16:50
谢谢收藏了。
作者:
huangqinyong
时间:
2009-2-23 16:53
6D的新作一定要看的，thanks
作者:
df
时间:
2009-2-23 23:52
谢谢分享
作者:
chaojianan
时间:
2009-2-24 17:41
谢谢6D分享。
作者:
346700841
时间:
2009-2-24 20:52
又长见识了，多谢了！
作者:
leijiqiang
时间:
2009-9-26 15:06
我也收藏
作者:
ZHENGLIAN
时间:
2010-8-15 08:23
谢谢分享
作者:
67613188
时间:
2011-8-9 23:09
看看再评论
作者:
purplerose
时间:
2015-8-23 10:29
收藏了，多谢！！{:soso_e160:}
作者:
lslly
时间:
2015-9-11 16:06
收藏下
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3
