Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步，快速開始

12下一頁(yè)
返回列表 發(fā)新帖
查看: 7494|回復(fù): 15
打印 上一主題 下一主題

[模塊/函數(shù)] 將文件夾中所有文件列出---遞歸函數(shù)

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2009-2-23 09:45:17 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
需要引用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
復(fù)制代碼



本帖子中包含更多資源

您需要 登錄 才可以下載或查看，沒有帳號(hào)？注冊(cè)

x
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏1 分享分享 分享淘帖 訂閱訂閱
2#
發(fā)表于 2009-2-23 09:52:54 | 只看該作者
謝謝版主奉獻(xiàn),收藏了.
3#
發(fā)表于 2009-2-23 09:55:04 | 只看該作者
學(xué)習(xí)一下~~

點(diǎn)擊這里給我發(fā)消息
4#
發(fā)表于 2009-2-23 10:09:53 | 只看該作者
收藏了!! 另6D收一下論壇短信哦
5#
發(fā)表于 2009-2-23 10:49:21 | 只看該作者
謝謝分享
6#
發(fā)表于 2009-2-23 16:43:50 | 只看該作者
收藏先
7#
發(fā)表于 2009-2-23 16:50:55 | 只看該作者
謝謝收藏了。
8#
發(fā)表于 2009-2-23 16:53:43 | 只看該作者
6D的新作一定要看的，thanks
9#
發(fā)表于 2009-2-23 23:52:17 | 只看該作者
謝謝分享
10#
發(fā)表于 2009-2-24 17:41:48 | 只看該作者
謝謝6D分享。
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-13 05:25 , Processed in 0.112202 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表