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