VBS遍歷文件或文件夾路徑輸入文件的所有絕對(duì)路徑（附源碼）
更新時(shí)間：2019年12月08日 19:44:21 作者：Alter hu
這篇文章主要介紹了VBS遍歷文件或文件夾路徑輸入文件的所有絕對(duì)路徑的代碼,需要的朋友可以參考下
源碼如下：
Function listFilesPath(filepath)
t1=Timer()
Debug.WriteLine "****現(xiàn)在開(kāi)始執(zhí)行計(jì)數(shù)，用時(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 "沒(méi)有該文件系統(tǒng)"
End if
Set filescol=Nothing
Set subcol=nothing
Set fso=Nothing
t2=Timer()
Debug.WriteLine "****現(xiàn)在完成計(jì)數(shù)，用時(shí)："+CStr(t2)
Debug.WriteLine "整個(gè)操作過(guò)程用時(shí):"&CStr(t2-t1)&" 秒"
End function
之前腳本之家小編更新過(guò)類(lèi)似的文章，大家可以參考一下
相關(guān)文章
ASP/VBScript中CHR(0)的由來(lái)以及帶來(lái)的安全問(wèn)題分析
CHR(0)是個(gè)特殊的字符，當(dāng)然在Visual Basic或者VBScript中可以直接用vbNullChar表示，從數(shù)值意義上來(lái)說(shuō)這個(gè)字符就是數(shù)字02012-01-01
getSQLinfo.vbs 獲得SQL數(shù)據(jù)/日志空間使用情況的腳本
這個(gè)腳本可以獲取SQL數(shù)據(jù)/日志的空間使用情況方便及時(shí)了解sql使用空間情況2008-07-07
VBS遍歷文件或文件夾路徑輸入文件的所有絕對(duì)路徑（附源碼）
這篇文章主要介紹了VBS遍歷文件或文件夾路徑輸入文件的所有絕對(duì)路徑的代碼,需要的朋友可以參考下2019-12-12
VBS控制Excel常見(jiàn)方法，需要的朋友可以參考下。2009-11-11
VBS教程：方法-Remove 方法...2006-11-11
打開(kāi)QQ并且讓它自己輸入用戶名和密碼的vbs腳本...2007-02-02
使用 iisweb.vbs 刪除網(wǎng)站的方法(支持批量刪除)
有時(shí)候我們需要批量刪除網(wǎng)站，如果一個(gè)一個(gè)手工刪除肯定太慢了，這里分享個(gè)命令，通過(guò)iisweb.vbs批量刪除網(wǎng)站2014-07-07
用來(lái)查詢(xún)ANSI 代碼的工具，需要的朋友可以試試。2009-12-12
vbs 錯(cuò)誤捕獲器，用于捕獲內(nèi)部錯(cuò)誤并進(jìn)行手工處理
vbs中的錯(cuò)誤捕獲器，用于捕獲內(nèi)部錯(cuò)誤并進(jìn)行手工處理2009-08-08
vbScript中WScript.Shell對(duì)象的run和exec使用心得分享
WScript.Shell對(duì)象提供了run和exec兩個(gè)方法，最近項(xiàng)目中需要在vbscript腳本中用pscp從linux服務(wù)器上copy文件。本來(lái)使用了exec方法，以下代碼2009-02-02