VBS遍歷文件或文件夾路徑輸入文件的所有絕對路徑（附源碼）
發(fā)布日期：2021-12-25 00:18 | 文章來源：腳本之家
源碼如下：
Function listFilesPath(filepath)
t1=Timer()
Debug.WriteLine "****現(xiàn)在開始執(zhí)行計數(shù)，用時："+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 "沒有該文件系統(tǒng)"
End if
Set filescol=Nothing
Set subcol=nothing
Set fso=Nothing
t2=Timer()
Debug.WriteLine "****現(xiàn)在完成計數(shù)，用時："+CStr(t2)
Debug.WriteLine "整個操作過程用時:"&CStr(t2-t1)&" 秒"
End function
之前本站小編更新過類似的文章，大家可以參考一下
版權(quán)聲明：本站文章來源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學(xué)習(xí)參考，不代表本站立場，如有內(nèi)容涉嫌侵權(quán)，請聯(lián)系alex-e#qq.com處理。
相關(guān)文章
關(guān)注官方微信