Access遍历文件夹并列出文件

最近很多朋友问到如何做文件管理器，如何将文件夹中的文件列出来。
可以通过递归函数，遍历文件夹可以罗列出文件列表。

Sub ListFolder(fd As Folder)

Dim sfd As Folder

Dim f As File

For Each f In fd.Files

List10.AddItem f.Path

For Each sfd In fd.SubFolders

List10.AddItem sfd.Path

ListFolder sfd

End Sub

发布人:Henry D. Sy-office中国

分享到：

点击次数：更新时间：2013-08-02 01:12:35 【打印此页】【关闭】