常春岛资源网 Design By www.syssdc.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
之前小编更新过类似的文章,大家可以参考一下
标签:
VBS遍历文件
常春岛资源网 Design By www.syssdc.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
常春岛资源网 Design By www.syssdc.com
暂无评论...
更新日志
2024年05月20日
2024年05月20日
- 腾讯网易打起来了!网易新游开喷腾讯太子:王者,你不是我的荣耀
- 摩登澡堂
- 冯晓泉.1995-遥远的城镇遥远的人【京文】【WAV+CUE】
- 蒋志光.1990-相逢·走【永高创意】【WAV+CUE】
- 挑战者 Challengers
- 群星.2014-电影歌曲101.6CD【环球】【WAV+CUE】
- 母亲的直觉 Mothers' Instinct
- 凶猛动物在哪里怎么接?任务完成攻略分享
- 原画壁纸及美图第226期,无水印可自取
- 七圣召唤打牌怎么玩?打牌玩法流程介绍
- 恋爱视觉小说游戏《机械恋心》上架Steam!本月发售
- 星穹铁道2.2匹诺康尼大剧院梦境迷钟解密合集 匹诺康尼大剧院迷钟修复攻略
- 中唱唱片群星《好歌珍藏-士兵旋律》2CDWAV
- 出发吧麦芬各职业特点解析 玩什么职业好
- 崩坏星穹铁道梦中之梦12平民满星攻略 梦中之梦12阵容搭配分享