将文件夹中所有文件列出---递归函数

Henry D. Sy

需要引用Office11，Scripting Runtime

1. Sub ListFolder(fd As Folder)
   
2.     Dim sfd As Folder
   
3.     Dim f As File
   
4.     For Each f In fd.Files
   
5.         List10.AddItem f.Path
   
6.     Next
   
7.     For Each sfd In fd.SubFolders
   
8.         List10.AddItem sfd.Path
   
9.         ListFolder sfd
   
10.     Next
    
11. End Sub

复制代码