本文共 695 字,大约阅读时间需要 2 分钟。
'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 NextEnd FunctionMsgBox GetSubFolders(GetCurrentFolderFullPath)
转载地址:http://ektai.baihongyu.com/