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