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

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

复制代码

蓝天8390

谢谢版主奉献,收藏了.

andymark

学习一下~~

tmtony

收藏了!! 另6D收一下论坛短信哦

koutx

谢谢分享

asklove

收藏先

chaojianan

谢谢收藏了。

huangqinyong

6D的新作一定要看的，thanks

df

谢谢分享

chaojianan

谢谢6D分享。