文件处理
Access遍历文件夹并列出文件
2013-08-02 01:12:35
文件类型 :
文件版本 :
简要说明 :
最近很多朋友问到如何做文件管理器，如何将文件夹中的文件列出来。
可以通过递归函数，遍历文件夹可以罗列出文件列表。
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
扩展
文件管理系统：http://www.office-cn.net/forum.php?mod=viewthread&tid=106280