饿虎岗资源网 Design By www.oxmxm.com
源码如下:
Function listFilesPath(filepath) t1=Timer() Debug.WriteLine "****现在开始执行计数,用时:"+CStr(t1) Set fso=CreateObject("scripting.filesystemobject") Set myfolder=fso.GetFolder(filepath) If fso.FolderExists(filepath) then Set subcol=myfolder.SubFolders Set filescol=myfolder.Files For Each file In filescol Debug.WriteLine filepath+"\"+file.name Next If subcol.count>0 Then For Each folder In subcol 'Debug.WriteLine filepath+"\"+folder.Name listFilesPath(filepath+"\"+folder.Name) next End if Else Debug.WriteLine "没有该文件系统" End if Set filescol=Nothing Set subcol=nothing Set fso=Nothing t2=Timer() Debug.WriteLine "****现在完成计数,用时:"+CStr(t2) Debug.WriteLine "整个操作过程用时:"&CStr(t2-t1)&" 秒" End function
之前小编更新过类似的文章,大家可以参考一下
饿虎岗资源网 Design By www.oxmxm.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
饿虎岗资源网 Design By www.oxmxm.com
暂无评论...
更新日志
2024年05月20日
2024年05月20日
- 林一峰2017-绝对清白2CD[香港首版][WAV+CUE
- 石凯《数星一整夜》[320K/MP3][44.18MB]
- 石凯《数星一整夜》[24bit 48kHz][FLAC/分轨][395.49MB]
- 邰正宵《重燃爱恋 贰 Walk On》[320K/MP3][158.71MB]
- 林一峰2003-床头歌[华纳][WAV+CUE]
- 张琍敏1983-又见牵手[台湾留声复刻版][WAV+CUE]
- 张琍敏1978-雪中莲[台湾复刻版][WAV+CUE]
- 叶蕴仪1993-睡美人[日本版][WAV+CUE]
- 夜晚助兴音乐-群星《新时代床头音乐-性能量》2CD[WAV]
- 24K德国HD金碟《历届奥斯卡获奖金曲》3CD[WAV整轨]
- 邰正宵《重燃爱恋 贰 Walk On》[FLAC/分轨][431.72MB]
- 苏文劭《雨停出来走走》[320K/MP3][81.11MB]
- 苏文劭《雨停出来走走》[FLAC/分轨][210.76MB]
- 群星《2024好听新歌04》十倍音质WAV分轨
- 陈宁《弹指之间HQ》头版限量[低速原抓WAV+CUE]