Shulou(Shulou.com)06/02 Report--

This article is about how to use VBS to traverse files or folder paths to enter all absolute paths to files. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

The source code is as follows

Function listFilesPath (filepath) t1=Timer () Debug.WriteLine "* now start counting Usage time: "+ 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" does not have the file system "End if Set filescol=Nothing Set subcol=nothing Set fso=Nothing t2=Timer () Debug.WriteLine" * now complete the count Time: "+ CStr (T2) Debug.WriteLine" the whole operation takes time: "& CStr (t2-t1) &" second "End function

Thank you for reading! On "how to use VBS to traverse the file or folder path to enter all the absolute paths of the file" this article is shared here, I hope the above content can be of some help to you, so that you can learn more knowledge, if you think the article is good, you can share it out for more people to see it!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.