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ò)類似的文章，大家可以參考一下
相關(guān)文章
將excel的數(shù)據(jù)轉(zhuǎn)化為access的數(shù)據(jù)庫(kù)中的方法。2009-07-07
改寫(xiě)自CSDN上的一個(gè)ASP中模擬form上傳文件，即（multipart/form-data）的表單的程序，原程序有些地方寫(xiě)錯(cuò)了。2011-01-01
先說(shuō)說(shuō)我都用VBScript做什么吧：ASP環(huán)境開(kāi)發(fā)網(wǎng)頁(yè)時(shí)，用VBScript腳本，有些自定義函數(shù)可以直接在桌面上建個(gè).vbs然后直接運(yùn)行2008-12-12
VBS合并一個(gè)文件夾里的TXT的實(shí)現(xiàn)代碼
有時(shí)從網(wǎng)上的電子書(shū)網(wǎng)站上下載解壓后。得到的是多個(gè)TXT文本。有沒(méi)有辦法把多個(gè)TXT合在一起看呢？寫(xiě)了個(gè)代碼。不是很完美，歡迎高手批評(píng)指教。 我只是個(gè)菜鳥(niǎo)，需要大家的關(guān)懷才能進(jìn)步哇2013-01-01
這篇文章主要介紹了VBS中常見(jiàn)字符串操作函數(shù),需要的朋友可以參考下2019-04-04
殺毒的對(duì)vbs相當(dāng)敏感 免殺...2006-08-08
用vbs將名稱轉(zhuǎn)換為正確的大小寫(xiě)的代碼
用vbs將名稱轉(zhuǎn)換為正確的大小寫(xiě)的代碼...2007-03-03
vbs-toolkit VBSEdit 提供 免費(fèi)的COM組件
VBSCRIPT 語(yǔ)法簡(jiǎn)單 強(qiáng)大 但是功能上明顯不足 需要第三方的控制 e.g. COM 組件來(lái)擴(kuò)展其功能. VBSEDIT 安裝完之后就可以在安裝目錄下發(fā)現(xiàn) 免費(fèi)提供的 COM 組件 vbs toolkit2018-06-06
要成為WMI腳本高手當(dāng)要認(rèn)識(shí)一下什么叫WMI啦，下面將介紹一下有關(guān)WMI的東西。2009-08-08
VBS實(shí)現(xiàn)將Excel表格保存為txt文本
希望能夠找到個(gè)能給excel表另存為TXT的VBS代碼，雖然另存為可以選擇，但還是需要直接VBS執(zhí)行這一步另存為TXT格式的，應(yīng)該如何寫(xiě)代碼呢2012-12-12