回复 9# ghost-jason
遍历代码分析。自己分析- Function getfolderpathone '起个容易理解的函数名
- Set fso = CreateObject("scripting.filesystemobject") '创建文件系统对象
- getfolderpathone = fso.GetParentFolderName(WScript.ScriptFullName) '得到当前脚本的父路径(绝对路径)
- End Function
-
- Function getfolderpath(test) '创建遍历函数名称
- Set fso = CreateObject("scripting.filesystemobject")'同样创建文件系统对象
- Set folderpath = fso.GetFolder(test) '得到当前单个文件夹的路径
- Set subfolders = folderpath.SubFolders '获取的个文件夹下多个个子文件夹路径
- For Each subfolder In subfolders '遍历一个一个显示单个子文件存储到一个变量当中
- getfolderpath= subfolder.Path & vbcrlf & getfolderpath & getfolderpath(subfolder.Path) '得到单个子文件夹的路径
- 'getfolderpath(subfolder.Path) 至于这个函数test=subfolder.path 起到循环子文件夹下个子文件夹
- next
- End Function
- MsgBox getfolderpath(getfolderpathone) '这个函数实际上 test = getfolderhone 也就是当前脚本所在的父文件夹的路径
复制代码
|