VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）
源码如下：
FunctionlistFilesPath(filepath)
t1=Timer()
Debug.WriteLine"****现在开始执行计数，用时："+CStr(t1)
Setfso=CreateObject("scripting.filesystemobject")
Setmyfolder=fso.GetFolder(filepath)
Iffso.FolderExists(filepath)then
Setsubcol=myfolder.SubFolders
Setfilescol=myfolder.Files
ForEachfileInfilescol
Debug.WriteLinefilepath+"\"+file.name
Next
Ifsubcol.count>0Then
ForEachfolderInsubcol
'Debug.WriteLinefilepath+"\"+folder.Name
listFilesPath(filepath+"\"+folder.Name)
next
Endif
Else
Debug.WriteLine"没有该文件系统"
Endif
Setfilescol=Nothing
Setsubcol=nothing
Setfso=Nothing
t2=Timer()
Debug.WriteLine"****现在完成计数，用时："+CStr(t2)
Debug.WriteLine"整个操作过程用时:"&CStr(t2-t1)&"秒"
Endfunction
之前毛票票小编更新过类似的文章，大家可以参考一下
声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：czq8825#qq.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。
热门推荐
1 训练狗狗憋尿
2 狗狗追踪训练
3 狗狗训练要多少钱
5 深圳狗狗训练
6 训练狗狗唤回
7 狗狗叫怎么训练
8 狗狗训练班
10 狗狗社会化训练
11 狗狗叫回训练
12 广州狗狗训练学校
13 狗狗训练躺下
14 狗狗随行训练
15 训练狗狗巡回
16 狗狗要怎么训练
17 狗狗喂食训练
18 训练狗狗躺下