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（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。