'WalkFolders.vbs 't0nsha<liaodunxia#gmail.com> '2010/3/20 '得到腳本文件所在的當前目錄 Function GetCurrentFolderFullPath Set fso = CreateObject("Scripting.FileSystemObject") GetCurrentFolderFullPath = fso.GetParentFolderName(WScript.ScriptFullName) End Function 'vbs遞歸遍歷當前目錄下的所有文件夾和子文件夾 Function GetSubFolders(currentFolderFullPath) Set fso = CreateObject("Scripting.FileSystemObject") Set currentFolder = fso.GetFolder(currentFolderFullPath) Set subFolderSet = currentFolder.SubFolders For Each subFolder in subFolderSet 'MsgBox "subFolder.Path=" & subFolder.Path GetSubFolders = subFolder.Path & ";" & GetSubFolders(subFolder.Path) & GetSubFolders Next End Function MsgBox GetSubFolders(GetCurrentFolderFullPath)

轉載于:https://www.cnblogs.com/zlja/archive/2010/03/20/2449151.html

總結

以上是生活随笔為你收集整理的VBS递归遍历文件夹的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。