Office中國論壇/Access中國論壇

標題: 將文件夾中所有文件列出---遞歸函數(shù) [打印本頁]
作者: Henry D. Sy    時間: 2009-2-23 09:45
標題: 將文件夾中所有文件列出---遞歸函數(shù)
需要引用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
復制代碼



[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.mzhfr.cn/) Powered by Discuz! X3.3