VBS遍歷檔案或資料夾路徑輸入檔案的所有絕對路徑(附原始碼)
阿新 • • 發佈:2020-01-07
原始碼如下:
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
之前我們小編更新過類似的文章,大家可以參考一下